home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / os2 / utility / clock / clock.cpp < prev    next >
C/C++ Source or Header  |  1996-02-21  |  113KB  |  3,012 lines
  1. /****************************************************************** CLOCK.CPP
  2.  *                                                                          *
  3.  *                Analog Clock for Presentation Manager                     *
  4.  *                                                                          *
  5.  *                Original program by Charles Petzold                       *
  6.  *                                                                          *
  7.  ****************************************************************************/
  8.  
  9. //
  10. // Things to do:
  11. //
  12. //   (1) Show Date (optional)
  13. //
  14.  
  15. #define INCL_BASE
  16. #define INCL_PM
  17. #include <os2.h>
  18.  
  19. #include <process.h>
  20. #include <stdarg.h>
  21. #include <stddef.h>
  22. #include <stdio.h>
  23. #include <stdlib.h>
  24. #include <string.h>
  25.  
  26. #include "debug.h"
  27. #include "helpwin.h"
  28. #include "module.h"
  29. #include "process.h"
  30. #include "profile.h"
  31. #include "restring.h"
  32. #include "support.h"
  33. #include "window.h"
  34.  
  35. #include "about.h"
  36. #include "config.h"
  37.  
  38. #include "clock.h"
  39.  
  40.  
  41. /****************************************************************************
  42.  *                                                                          *
  43.  *                       Definitions & Declarations                         *
  44.  *                                                                          *
  45.  ****************************************************************************/
  46.  
  47.   // Constants
  48.  
  49. #define DATEFMT_MM_DD_YY    (0x0000)
  50. #define DATEFMT_DD_MM_YY    (0x0001)
  51. #define DATEFMT_YY_MM_DD    (0x0002)
  52.  
  53. enum { ALERT_TASKCOUNT, ALERT_LOAD } ;
  54.  
  55. #define WM_REFRESH WM_USER
  56.  
  57.  
  58.   // Type Definitions
  59.  
  60. typedef struct {
  61.   SHORT cxClient ;
  62.   SHORT cyClient ;
  63.   SHORT cxPixelDiam ;
  64.   SHORT cyPixelDiam ;
  65. }
  66. WINDOWINFO, *PWINDOWINFO ;
  67.  
  68. typedef struct {
  69.   volatile BOOL Active ;
  70.   volatile PULONG Counter ;
  71.   HWND Owner ;
  72. }
  73. MONITOR_PARMS, *PMONITOR_PARMS ;
  74.  
  75. typedef struct {
  76.   volatile BOOL Active ;
  77.   volatile PULONG Counter ;
  78. }
  79. COUNTER_PARMS, *PCOUNTER_PARMS ;
  80.  
  81. typedef struct {      // Parameters saved to system.
  82.  
  83.   SWP    Position ;             // Window size & location.
  84.   BOOL   fPosition ;
  85.  
  86.   BOOL   Hour24 ;               // User options.
  87.   BOOL   fHour24 ;
  88.  
  89.   BOOL   HideControls ;
  90.   BOOL   fHideControls ;
  91.  
  92.   BOOL   Chime ;
  93.   BOOL   fChime ;
  94.  
  95.   BOOL   Float ;
  96.   BOOL   fFloat ;
  97.  
  98.   BOOL   Animate ;
  99.   BOOL   fAnimate ;
  100.  
  101.   BOOL   Analog ;
  102.   BOOL   fAnalog ;
  103.  
  104.   BOOL   AlertType ;
  105.   BOOL   fAlertType ;
  106.  
  107.   USHORT AlertLevels [2] [2] ;
  108.   BOOL   fAlertLevels ;
  109.  
  110.   CHAR   FontNameSize [80] ;    // Presentation Parameters
  111.   BOOL   fFontNameSize ;
  112.  
  113.   COLOR  BackColor ;
  114.   BOOL   fBackColor ;
  115.  
  116.   COLOR  TextColor ;
  117.   BOOL   fTextColor ;
  118. }
  119. INIDATA, *PINIDATA ;
  120.  
  121. typedef struct {
  122.  
  123.   Process *Proc ;
  124.   Module  *Library ;
  125.   Profile *IniFile ;
  126.  
  127.   INIDATA IniData ;
  128.  
  129.   HWND hwndTitleBar ;
  130.   HWND hwndSysMenu ;
  131.   HWND hwndMinMax ;
  132.  
  133.   DATETIME PreviousDateTime ;
  134.   USHORT PreviousHour ;
  135.   LONG xPixelsPerMeter, yPixelsPerMeter ;
  136.   WINDOWINFO wi ;
  137.  
  138.   USHORT Alert ;
  139.  
  140.   ULONG MaxCount ;
  141.   ULONG IdleCounter ;
  142.   ULONG IdleCount ;
  143.  
  144.   TID   IdleLoopTID ;
  145.   COUNTER_PARMS IdleLoopParms ;
  146.  
  147.   TID   MonitorTID ;
  148.   MONITOR_PARMS MonitorParms ;
  149.  
  150.   COUNTRYINFO CountryInfo ;
  151. }
  152. DATA, *PDATA ;
  153.  
  154. typedef struct {
  155.    short Filler ;
  156.    Process *Proc ;
  157.    Module *Library ;
  158.    Profile *IniFile ;
  159.    BOOL Analog ;
  160.    BOOL fAnalog ;
  161. }
  162. PARMS, *PPARMS ;
  163.  
  164.  
  165.   // Function Prototypes
  166.  
  167. extern int main ( int argc, char *argv[] ) ;
  168.  
  169. static FNWP MessageProcessor ;
  170.  
  171. static METHODFUNCTION Create ;
  172. static METHODFUNCTION Destroy ;
  173. static METHODFUNCTION Size ;
  174. static METHODFUNCTION SaveApplication ;
  175. static METHODFUNCTION Paint ;
  176. static METHODFUNCTION Command ;
  177. static METHODFUNCTION ResetDefaults ;
  178. static METHODFUNCTION HideControlsCmd ;
  179. static METHODFUNCTION Configure ;
  180. static METHODFUNCTION About ;
  181. static METHODFUNCTION ButtonDown ;
  182. static METHODFUNCTION ButtonDblClick ;
  183. static METHODFUNCTION PresParamChanged ;
  184. static METHODFUNCTION SysColorChange ;
  185. static METHODFUNCTION QueryKeysHelp ;
  186. static METHODFUNCTION HelpError ;
  187. static METHODFUNCTION ExtHelpUndefined ;
  188. static METHODFUNCTION HelpSubitemNotFound ;
  189. static METHODFUNCTION Refresh ;
  190.  
  191. static int GetIniData ( HINI IniHandle, PINIDATA IniData ) ;
  192. static VOID PutIniData ( HINI IniHandle, PINIDATA IniData ) ;
  193.  
  194. static VOID RotatePoint ( POINTL aptl[],  SHORT sNum, SHORT sAngle ) ;
  195. static VOID ScalePoint ( POINTL aptl[], SHORT sNum, PWINDOWINFO pwi ) ;
  196. static VOID TranslatePoint ( POINTL aptl[], SHORT sNum, PWINDOWINFO pwi ) ;
  197. static VOID DrawHand ( HPS hPS, POINTL aptlIn[], SHORT sNum, SHORT sAngle,
  198.   PWINDOWINFO pwi ) ;
  199. static void PaintBackground ( HWND hwnd, HPS hPS, PDATA Data, BOOL MustPaint ) ;
  200. static void PaintBorder ( HWND hwnd, HPS hPS, PDATA Data, BOOL MustPaint ) ;
  201. static void PaintDigitalTime ( HWND hwnd, HPS hPS, PDATA Data, PDATETIME DateTime ) ;
  202.  
  203. static void HideControls
  204. (
  205.   BOOL fHide,
  206.   HWND hwndFrame,
  207.   HWND hwndSysMenu,
  208.   HWND hwndTitleBar,
  209.   HWND hwndMinMax
  210. ) ;
  211.  
  212. static void _Optlink MonitorThread ( PVOID Parameter ) ;
  213.  
  214. static ULONG CalibrateLoadMeter ( void ) ;
  215.  
  216. static void _Optlink CounterThread ( PVOID Parameter ) ;
  217.  
  218.  
  219.   // Global Data
  220.  
  221. HMODULE LibraryHandle ;
  222.  
  223.  
  224. /****************************************************************************
  225.  *                                                                          *
  226.  *      Program Mainline                                                    *
  227.  *                                                                          *
  228.  ****************************************************************************/
  229.  
  230. extern int main ( int argc, char *argv[] )
  231. {
  232.  /***************************************************************************
  233.   * Initialize the process.                                                 *
  234.   ***************************************************************************/
  235.  
  236.   Process Proc ;
  237.  
  238.  /***************************************************************************
  239.   * Now WIN and GPI calls will work.  Open the language DLL.                *
  240.   ***************************************************************************/
  241.  
  242.   Module Library ( PSZ(PROGRAM_NAME) ) ;
  243.   LibraryHandle = Library.QueryHandle() ;
  244.  
  245.  /***************************************************************************
  246.   * Get the program title.                                                  *
  247.   ***************************************************************************/
  248.  
  249.   ResourceString Title ( Library.QueryHandle(), IDS_TITLE ) ;
  250.  
  251.  /***************************************************************************
  252.   * Decipher command-line parameters.                                       *
  253.   ***************************************************************************/
  254.  
  255.   ResourceString ResetCommand ( Library.QueryHandle(), IDS_PARMS_RESET ) ;
  256.   ResourceString AnalogCommand ( Library.QueryHandle(), IDS_PARMS_ANALOG ) ;
  257.   ResourceString DigitalCommand ( Library.QueryHandle(), IDS_PARMS_DIGITAL ) ;
  258.  
  259.   BOOL Reset = FALSE ;
  260.   BOOL Analog = TRUE ;
  261.   BOOL fAnalog = FALSE ;
  262.  
  263.   while ( --argc ) {
  264.  
  265.     argv ++ ;
  266.   
  267.     if ( *argv[0] == '?' ) {
  268.       ResourceString Message ( Library.QueryHandle(), IDS_PARAMETERLIST ) ;
  269.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, PSZ(Message),
  270.         PSZ(Title), 0, MB_ENTER | MB_NOICON ) ;
  271.       return ( 0 ) ;
  272.     }
  273.  
  274.     if ( !stricmp ( *argv, PCHAR(ResetCommand) ) ) {
  275.       Reset = TRUE ;
  276.       continue ;
  277.     }
  278.  
  279.     if ( !stricmp ( *argv, PCHAR(AnalogCommand) ) ) {
  280.       Analog = TRUE ;
  281.       fAnalog = TRUE ;
  282.       continue ;
  283.     }
  284.  
  285.     if ( !stricmp ( *argv, PCHAR(DigitalCommand) ) ) {
  286.       Analog = FALSE ;
  287.       fAnalog = TRUE ;
  288.       continue ;
  289.     }
  290.  
  291.     {
  292.       ResourceString Format ( Library.QueryHandle(), IDS_ERROR_INVALIDPARM ) ;
  293.       BYTE Message [200] ;
  294.       sprintf ( PCHAR(Message), PCHAR(Format), *argv ) ;
  295.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  296.         PSZ(Title), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  297.       abort ( ) ;
  298.     }
  299.   }
  300.  
  301.  /***************************************************************************
  302.   * Create the help instance.                                               *
  303.   ***************************************************************************/
  304.  
  305.   ResourceString HelpTitle ( Library.QueryHandle(), IDS_HELPTITLE ) ;
  306.  
  307.   HelpWindow Help ( Proc.QueryAnchor(), 0,
  308.     ID_MAIN, PSZ(PROGRAM_NAME ".hlp"), PSZ(HelpTitle) ) ;
  309.  
  310.   if ( Help.QueryHandle() == 0 ) {
  311.     ERRORID Error = WinGetLastError ( Proc.QueryAnchor() ) ;
  312.     ResourceString Format ( Library.QueryHandle(), IDS_ERROR_CREATEHELP ) ;
  313.     CHAR Message [200] ;
  314.     sprintf ( Message, PCHAR(Format), Error ) ;
  315. //  Log ( "%s", Message ) ;
  316.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, PSZ(Message),
  317.       PSZ(Title), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  318.   }
  319.  
  320.  /***************************************************************************
  321.   * Open/create the profile file.  Reset if requested.                      *
  322.   ***************************************************************************/
  323.  
  324.   Profile IniFile ( PSZ(PROGRAM_NAME),
  325.     Proc.QueryAnchor(), Library.QueryHandle(),
  326.     IDD_PROFILE_PATH, Help.QueryHandle(), Reset ) ;
  327.  
  328.   if ( IniFile.QueryHandle() == 0 ) {
  329.     ResourceString Message ( Library.QueryHandle(), IDS_ERROR_PRFOPENPROFILE ) ;
  330.     Log ( "%s", PSZ(Message) ) ;
  331.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, PSZ(Message),
  332.       PSZ(Title), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  333.     abort ( ) ;
  334.   }
  335.  
  336.  /***************************************************************************
  337.   * Read the profile to find out if we're to animate the frame window.      *
  338.   ***************************************************************************/
  339.  
  340.   BOOL Animate = FALSE ;
  341.   ULONG Size ;
  342.   if
  343.   (
  344.     PrfQueryProfileSize ( IniFile.QueryHandle(), PSZ(PROGRAM_NAME), PSZ("Animate"), &Size )
  345.     AND
  346.     ( ( Size == sizeof(Animate) ) OR ( Size == sizeof(short) ) )
  347.     AND
  348.     PrfQueryProfileData ( IniFile.QueryHandle(), PSZ(PROGRAM_NAME), PSZ("Animate"), &Animate, &Size )
  349.   )
  350.   {
  351.     ;
  352.   }
  353.  
  354.  /***************************************************************************
  355.   * Create the frame window.                                                *
  356.   ***************************************************************************/
  357.  
  358.   FRAMECDATA FrameControlData ;
  359.   FrameControlData.cb = sizeof(FrameControlData) ;
  360.   FrameControlData.flCreateFlags =
  361.     FCF_TITLEBAR | FCF_SYSMENU | FCF_SIZEBORDER |
  362.     FCF_MINMAX | FCF_NOBYTEALIGN | FCF_ACCELTABLE ;
  363.   FrameControlData.hmodResources = 0 ;
  364.   FrameControlData.idResources = ID_MAIN ;
  365.  
  366.   Window Frame ( HWND_DESKTOP, WC_FRAME, PSZ(Title),
  367.     Animate ? WS_ANIMATE : 0,
  368.     0, 0, 0, 0, HWND_DESKTOP, HWND_TOP, ID_MAIN,
  369.     &FrameControlData, NULL ) ;
  370.  
  371.   if ( Frame.QueryHandle() == 0 ) {
  372.     ERRORID Error = WinGetLastError ( Proc.QueryAnchor() ) ;
  373.     ResourceString Format ( Library.QueryHandle(), IDS_ERROR_CREATEFRAME ) ;
  374.     CHAR Message [200] ;
  375.     sprintf ( Message, PCHAR(Format), Error ) ;
  376.     Log ( "%s", Message ) ;
  377.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, PSZ(Message),
  378.       PSZ(Title), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  379.     abort ( ) ;
  380.   }
  381.  
  382.  /***************************************************************************
  383.   * Associate the help instance with the frame window.                      *
  384.   ***************************************************************************/
  385.  
  386.   if ( Help.QueryHandle() ) {
  387.     WinAssociateHelpInstance ( Help.QueryHandle(), Frame.QueryHandle() ) ;
  388.   }
  389.  
  390.  /***************************************************************************
  391.   * Register the client window class.                                       *
  392.   ***************************************************************************/
  393.  
  394.   if
  395.   (
  396.     !WinRegisterClass
  397.     (
  398.       Proc.QueryAnchor(),
  399.       PSZ(CLASS_NAME),
  400.       MessageProcessor,
  401.       CS_MOVENOTIFY,
  402.       sizeof(PVOID)
  403.     )
  404.   )
  405.   {
  406.     ERRORID Error = WinGetLastError ( Proc.QueryAnchor() ) ;
  407.     ResourceString Format ( Library.QueryHandle(), IDS_ERROR_WINREGISTERCLASS ) ;
  408.     CHAR Message [200] ;
  409.     sprintf ( Message, PCHAR(Format), CLASS_NAME, Error ) ;
  410.     Log ( "%s", Message ) ;
  411.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, PSZ(Message),
  412.       PSZ(Title), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  413.     abort ( ) ;
  414.   }
  415.  
  416.  /***************************************************************************
  417.   * Create client window.  If this fails, destroy frame and return.         *
  418.   ***************************************************************************/
  419.  
  420.   PARMS Parms ;
  421.   Parms.Filler = 0 ;
  422.   Parms.Proc = & Proc ;
  423.   Parms.Library = & Library ;
  424.   Parms.IniFile = & IniFile ;
  425.   Parms.Analog = Analog ;
  426.   Parms.fAnalog = fAnalog ;
  427.  
  428.   Window Client ( Frame.QueryHandle(), PSZ(CLASS_NAME), PSZ(""), 0, 0, 0, 0, 0,
  429.      Frame.QueryHandle(), HWND_BOTTOM, FID_CLIENT, &Parms, NULL ) ;
  430.  
  431.   if ( Client.QueryHandle() == 0 ) {
  432.     ERRORID Error = WinGetLastError ( Proc.QueryAnchor() ) ;
  433.     ResourceString Format ( Library.QueryHandle(), IDS_ERROR_CREATECLIENT ) ;
  434.     CHAR Message [200] ;
  435.     sprintf ( Message, PCHAR(Format), Error ) ;
  436.     Log ( "%s", Message ) ;
  437.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, PSZ(Message),
  438.       PSZ(Title), 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  439.     abort ( ) ;
  440.   }
  441.  
  442.  /***************************************************************************
  443.   * Wait for and process messages to the window's queue.  Terminate         *
  444.   *   when the WM_QUIT message is received.                                 *
  445.   ***************************************************************************/
  446.  
  447.   QMSG QueueMessage ;
  448.   while ( WinGetMsg ( Proc.QueryAnchor(), &QueueMessage, 0, 0, 0 ) ) {
  449.     WinDispatchMsg ( Proc.QueryAnchor(), &QueueMessage ) ;
  450.   }
  451.  
  452.  /***************************************************************************
  453.   * Discard all that was requested of the system and terminate.             *
  454.   ***************************************************************************/
  455.  
  456.   return ( 0 ) ;
  457. }
  458.  
  459. /****************************************************************************
  460.  *                                                                          *
  461.  *      Window Message Processor                                            *
  462.  *                                                                          *
  463.  ****************************************************************************/
  464.  
  465. static MRESULT EXPENTRY MessageProcessor
  466. (
  467.   HWND hwnd,
  468.   ULONG msg,
  469.   MPARAM mp1,
  470.   MPARAM mp2
  471. )
  472. {
  473.  /***************************************************************************
  474.   * Dispatch the message according to the method table and return the       *
  475.   *   result.  Any messages not defined above get handled by the system     *
  476.   *   default window processor.                                             *
  477.   ***************************************************************************/
  478.  
  479.   static METHOD Methods [] =
  480.   {
  481.     { WM_CREATE,                Create              },
  482.     { WM_DESTROY,               Destroy             },
  483.     { WM_SIZE,                  Size                },
  484.     { WM_MOVE,                  Size                },
  485.     { WM_SAVEAPPLICATION,       SaveApplication     },
  486.     { WM_PAINT,                 Paint               },
  487.     { WM_COMMAND,               Command             },
  488.     { WM_BUTTON1DOWN,           ButtonDown          },
  489.     { WM_BUTTON2DOWN,           ButtonDown          },
  490.     { WM_BUTTON1DBLCLK,         ButtonDblClick      },
  491.     { WM_BUTTON2DBLCLK,         ButtonDblClick      },
  492.     { WM_PRESPARAMCHANGED,      PresParamChanged    },
  493.     { WM_SYSCOLORCHANGE,        SysColorChange      },
  494.     { HM_QUERY_KEYS_HELP,       QueryKeysHelp       },
  495.     { HM_ERROR,                 HelpError           },
  496.     { HM_EXT_HELP_UNDEFINED,    ExtHelpUndefined    },
  497.     { HM_HELPSUBITEM_NOT_FOUND, HelpSubitemNotFound },
  498.     { WM_REFRESH,               Refresh             }
  499.   } ;
  500.  
  501.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefWindowProc ) ) ;
  502. }
  503.  
  504. /****************************************************************************
  505.  *                                                                          *
  506.  *      Initialize main window.                                             *
  507.  *                                                                          *
  508.  ****************************************************************************/
  509.  
  510. static MRESULT APIENTRY Create
  511. ( 
  512.   HWND hwnd, 
  513.   ULONG msg, 
  514.   MPARAM mp1, 
  515.   MPARAM mp2
  516. )
  517. {
  518.  /***************************************************************************
  519.   * Allocate instance data.                                                 *
  520.   ***************************************************************************/
  521.  
  522.   PDATA Data = PDATA ( malloc ( sizeof(DATA) ) ) ;
  523.  
  524.   memset ( Data, 0, sizeof(DATA) ) ;
  525.  
  526.   WinSetWindowPtr ( hwnd, QWL_USER, Data ) ;
  527.  
  528.  /***************************************************************************
  529.   * Grab any parameters from the WM_CREATE message.                         *
  530.   ***************************************************************************/
  531.  
  532.   PPARMS Parms = PPARMS ( PVOIDFROMMP ( mp1 ) ) ;
  533.  
  534.   Data->Proc = Parms->Proc ;
  535.   Data->Library = Parms->Library ;
  536.   Data->IniFile = Parms->IniFile ;
  537.  
  538.  /***************************************************************************
  539.   * Get profile data. Try the OS2.INI first, then try for private INI.      *
  540.   *   If obtained from OS2.INI, erase it afterwards.                        *
  541.   ***************************************************************************/
  542.  
  543.   if ( GetIniData ( HINI_USERPROFILE, &Data->IniData ) )
  544.   {
  545.     GetIniData ( Data->IniFile->QueryHandle(), &Data->IniData ) ;
  546.   }
  547.   else
  548.   {
  549.     PrfWriteProfileData ( HINI_USERPROFILE, PSZ(PROGRAM_NAME), PSZ(NULL), PSZ(NULL), 0 ) ;
  550.   }
  551.  
  552.   if ( Parms->fAnalog )
  553.   {
  554.     Data->IniData.Analog = Parms->Analog ;
  555.     Data->IniData.fAnalog = TRUE ;
  556.   }
  557.  
  558.  /***************************************************************************
  559.   * Get country information.                                                *
  560.   ***************************************************************************/
  561.  
  562.   {
  563.     COUNTRYCODE CountryCode ;
  564.     ULONG Count ;
  565.     ULONG Status ;
  566.  
  567.     CountryCode.country = 0 ;
  568.     CountryCode.codepage = 0 ;
  569.  
  570.     Status = DosGetCtryInfo ( sizeof(Data->CountryInfo), &CountryCode,
  571.       &Data->CountryInfo, &Count ) ;
  572.     if ( Status )
  573.     {
  574.       BYTE Message [80] ;
  575.       WinLoadMessage ( Data->Proc->QueryAnchor(), Data->Library->QueryHandle(), IDS_ERROR_DOSGETCTRYINFO,
  576.         sizeof(Message), Message ) ;
  577.       Debug ( hwnd, PCHAR(Message), Status ) ;
  578.       Data->CountryInfo.fsDateFmt = DATEFMT_MM_DD_YY ;
  579.       Data->CountryInfo.fsTimeFmt = 0 ;
  580.       Data->CountryInfo.szDateSeparator[0] = '/' ;
  581.       Data->CountryInfo.szDateSeparator[1] = 0 ;
  582.       Data->CountryInfo.szTimeSeparator[0] = ':' ;
  583.       Data->CountryInfo.szTimeSeparator[1] = 0 ;
  584.       Data->CountryInfo.szThousandsSeparator[0] = ',' ;
  585.       Data->CountryInfo.szThousandsSeparator[1] = 0 ;
  586.     }
  587.   }
  588.  
  589.   if ( NOT Data->IniData.fHour24 )
  590.   {
  591.     Data->IniData.Hour24 = Data->CountryInfo.fsTimeFmt ;
  592.   }
  593.  
  594.  /***************************************************************************
  595.   * Get initial time.                                                       *
  596.   ***************************************************************************/
  597.  
  598.   DosGetDateTime ( &Data->PreviousDateTime ) ;
  599.  
  600.   Data->PreviousHour = ( Data->PreviousDateTime.hours * 5 ) % 60
  601.     + Data->PreviousDateTime.minutes/12 ;
  602.  
  603.  /***************************************************************************
  604.   * Get the frame handle.                                                   *
  605.   ***************************************************************************/
  606.  
  607.   HWND FrameWindow = WinQueryWindow ( hwnd, QW_PARENT ) ;
  608.  
  609.  /***************************************************************************
  610.   * Get the control window handles.                                         *
  611.   ***************************************************************************/
  612.  
  613.   Data->hwndSysMenu  = WinWindowFromID ( FrameWindow, FID_SYSMENU  ) ;
  614.   Data->hwndTitleBar = WinWindowFromID ( FrameWindow, FID_TITLEBAR ) ;
  615.   Data->hwndMinMax   = WinWindowFromID ( FrameWindow, FID_MINMAX   ) ;
  616.  
  617.  /***************************************************************************
  618.   * Add basic extensions to the system menu.                                *
  619.   ***************************************************************************/
  620.  
  621.   static MENUITEM MenuSeparator =
  622.     { MIT_END, MIS_SEPARATOR, 0, 0, 0, 0 } ;
  623.  
  624.   AddSysMenuItem ( FrameWindow, &MenuSeparator, PSZ(NULL) ) ;
  625.  
  626.   static MENUITEM MenuItems [] =
  627.   {
  628.     { MIT_END, MIS_TEXT,      0, IDM_SAVE_APPLICATION, 0, 0 },
  629.     { MIT_END, MIS_TEXT,      0, IDM_RESET_DEFAULTS,   0, 0 },
  630.     { MIT_END, MIS_TEXT,      0, IDM_HIDE_CONTROLS,    0, 0 },
  631.     { MIT_END, MIS_TEXT,      0, IDM_CONFIGURE,        0, 0 },
  632.   } ;
  633.  
  634.   for ( int i=0; i<sizeof(MenuItems)/sizeof(MenuItems[0]); i++ )
  635.   {
  636.     ResourceString MenuText ( Data->Library->QueryHandle(), i+IDS_SAVE_APPLICATION ) ;
  637.     AddSysMenuItem ( FrameWindow, MenuItems+i, PSZ(MenuText) ) ;
  638.   }
  639.  
  640.  /***************************************************************************
  641.   * Add 'About' to the system menu.                                         *
  642.   ***************************************************************************/
  643.  
  644.   AddSysMenuItem ( FrameWindow, &MenuSeparator, PSZ(NULL) ) ;
  645.  
  646.   ResourceString AboutText ( Data->Library->QueryHandle(), IDS_ABOUT ) ;
  647.  
  648.   static MENUITEM MenuAbout =
  649.     { MIT_END, MIS_TEXT, 0, IDM_ABOUT, 0, 0 } ;
  650.  
  651.   AddSysMenuItem ( FrameWindow, &MenuAbout, PSZ(AboutText) ) ;
  652.  
  653.  /***************************************************************************
  654.   * Add 'Help' to the system menu.                                          *
  655.   ***************************************************************************/
  656.  
  657.   ResourceString HelpText ( Data->Library->QueryHandle(), IDS_HELP ) ;
  658.  
  659.   static MENUITEM MenuHelp =
  660.     { MIT_END, MIS_HELP, 0, 0, 0, 0 } ;
  661.  
  662.   AddSysMenuItem ( FrameWindow, &MenuHelp, PSZ(HelpText) ) ;
  663.  
  664.  /***************************************************************************
  665.   * Calibrate the old-style load meter, if the high resolution timer's      *
  666.   *   available.                                                            *
  667.   ***************************************************************************/
  668.  
  669.   Data->MaxCount = CalibrateLoadMeter ( ) ;
  670.   Data->MaxCount = (ULONG) max ( 1L, Data->MaxCount ) ;
  671.  
  672.  /***************************************************************************
  673.   * Start the load meter.  Put it to sleep if we're not using it.           *
  674.   ***************************************************************************/
  675.  
  676.   Data->IdleLoopParms.Active = TRUE ;
  677.   Data->IdleLoopParms.Counter = & Data->IdleCounter ;
  678.   Data->IdleLoopTID = _beginthread ( CounterThread, NULL, 0x3000, &Data->IdleLoopParms ) ;
  679.   DosSetPrty ( PRTYS_THREAD, PRTYC_IDLETIME, PRTYD_MINIMUM, Data->IdleLoopTID ) ;
  680.   DosSuspendThread ( Data->IdleLoopTID ) ;
  681.  
  682.   Data->IdleCount = 0 ;
  683.   Data->IdleCounter = 0 ;
  684.  
  685.   if ( Data->IniData.AlertType == ALERT_LOAD )
  686.   {
  687.     DosResumeThread ( Data->IdleLoopTID ) ;
  688.   }
  689.  
  690.   Data->MonitorParms.Active = TRUE ;
  691.   Data->MonitorParms.Counter = & Data->IdleCounter ;
  692.   Data->MonitorParms.Owner = hwnd ;
  693.   Data->MonitorTID = _beginthread ( MonitorThread, NULL, 0x3000, &Data->MonitorParms ) ;
  694.  
  695.  /***************************************************************************
  696.   * Add the program to the system task list.                                *
  697.   ***************************************************************************/
  698.  
  699.   ResourceString Title ( Data->Library->QueryHandle(), IDS_TITLE ) ;
  700.   Add2TaskList ( FrameWindow, PSZ(Title) ) ;
  701.  
  702.  /***************************************************************************
  703.   * Get device capabilities before you mess around with resizing.           *
  704.   ***************************************************************************/
  705.  
  706.   HPS hPS = WinGetPS ( hwnd ) ;
  707.   HDC hDC = GpiQueryDevice ( hPS ) ;
  708.   DevQueryCaps ( hDC, CAPS_VERTICAL_RESOLUTION, 1L,
  709.     &Data->yPixelsPerMeter ) ;
  710.   DevQueryCaps ( hDC, CAPS_HORIZONTAL_RESOLUTION, 1L,
  711.     &Data->xPixelsPerMeter ) ;
  712.   WinReleasePS ( hPS ) ;
  713.  
  714.  /***************************************************************************
  715.   * If window hasn't been positioned before, set the default position.      *
  716.   ***************************************************************************/
  717.  
  718.   RECTL Rectangle ;
  719.   if ( NOT Data->IniData.fPosition )
  720.   {
  721.     WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  722.  
  723.     Rectangle.xLeft = Rectangle.xRight - Rectangle.xRight / 4 ;
  724.     Rectangle.yBottom = Rectangle.yTop - Rectangle.yTop / 3 ;
  725.  
  726.     Data->IniData.Position.x = (SHORT) Rectangle.xLeft ;
  727.     Data->IniData.Position.y = (SHORT) Rectangle.yBottom ;
  728.  
  729.     Data->IniData.Position.cx = (SHORT) ( Rectangle.xRight - Rectangle.xLeft ) ;
  730.     Data->IniData.Position.cy = (SHORT) ( Rectangle.yTop - Rectangle.yBottom ) ;
  731.   }
  732.  
  733.  /***************************************************************************
  734.   * Position & size the window.                                             *
  735.   ***************************************************************************/
  736.  
  737.   Rectangle.xLeft   = Data->IniData.Position.x ;
  738.   Rectangle.xRight  = Data->IniData.Position.x + Data->IniData.Position.cx ;
  739.   Rectangle.yBottom = Data->IniData.Position.y ;
  740.   Rectangle.yTop    = Data->IniData.Position.y + Data->IniData.Position.cy ;
  741.  
  742.   if ( Data->IniData.HideControls )
  743.   {
  744.     WinSetParent ( Data->hwndSysMenu,  HWND_OBJECT, FALSE ) ;
  745.     WinSetParent ( Data->hwndTitleBar, HWND_OBJECT, FALSE ) ;
  746.     WinSetParent ( Data->hwndMinMax,   HWND_OBJECT, FALSE ) ;
  747.  
  748.     WinSendMsg ( FrameWindow, WM_UPDATEFRAME,
  749.       MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  750.  
  751.     WinCalcFrameRect ( FrameWindow, &Rectangle, TRUE ) ;
  752.  
  753.     WinSetParent ( Data->hwndSysMenu,  FrameWindow, TRUE ) ;
  754.     WinSetParent ( Data->hwndTitleBar, FrameWindow, TRUE ) ;
  755.     WinSetParent ( Data->hwndMinMax,   FrameWindow, TRUE ) ;
  756.  
  757.     WinSendMsg ( FrameWindow, WM_UPDATEFRAME,
  758.       MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  759.  
  760.     WinCalcFrameRect ( FrameWindow, &Rectangle, FALSE ) ;
  761.   }
  762.  
  763.   WinSetWindowPos ( FrameWindow, HWND_BOTTOM,
  764.     (SHORT) Rectangle.xLeft, (SHORT) Rectangle.yBottom,
  765.     (SHORT) ( Rectangle.xRight - Rectangle.xLeft ),
  766.     (SHORT) ( Rectangle.yTop - Rectangle.yBottom ),
  767.     SWP_SIZE | SWP_MOVE | SWP_ZORDER |
  768.     ( Data->IniData.Position.fl & SWP_MINIMIZE ) |
  769.     ( Data->IniData.Position.fl & SWP_MAXIMIZE ) |
  770.     ( Data->IniData.Position.fl & SWP_RESTORE ) ) ;
  771.  
  772.  /***************************************************************************
  773.   * Hide the controls if so configured and not minimized.                   *
  774.   ***************************************************************************/
  775.  
  776.   if ( Data->IniData.HideControls
  777.     AND NOT ( Data->IniData.Position.fl & SWP_MINIMIZE ) )
  778.   {
  779.     CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->IniData.HideControls ) ;
  780.  
  781.     HideControls
  782.     (
  783.       TRUE,
  784.       FrameWindow,
  785.       Data->hwndSysMenu,
  786.       Data->hwndTitleBar,
  787.       Data->hwndMinMax
  788.     ) ;
  789.   }
  790.  
  791.  /***************************************************************************
  792.   * Get the saved presentation parameters and reinstate them.               *
  793.   ***************************************************************************/
  794.  
  795.   if ( Data->IniData.fFontNameSize )
  796.   {
  797.     WinSetPresParam ( hwnd, PP_FONTNAMESIZE,
  798.       strlen(Data->IniData.FontNameSize)+1, Data->IniData.FontNameSize ) ;
  799.   }
  800.  
  801.   if ( Data->IniData.fBackColor )
  802.   {
  803.     WinSetPresParam ( hwnd, PP_BACKGROUNDCOLOR,
  804.       sizeof(Data->IniData.BackColor), &Data->IniData.BackColor ) ;
  805.   }
  806.  
  807.   if ( Data->IniData.fTextColor )
  808.   {
  809.     WinSetPresParam ( hwnd, PP_FOREGROUNDCOLOR,
  810.       sizeof(Data->IniData.TextColor), &Data->IniData.TextColor ) ;
  811.   }
  812.  
  813.  /***************************************************************************
  814.   * Now that the window's in order, make it visible.                        *
  815.   ***************************************************************************/
  816.  
  817.   WinShowWindow ( FrameWindow, TRUE ) ;
  818.  
  819.  /***************************************************************************
  820.   * Success?  Return no error.                                              *
  821.   ***************************************************************************/
  822.  
  823.   return ( MRFROMSHORT ( 0 ) ) ;
  824. }
  825.  
  826. /****************************************************************************
  827.  *                                                                          *
  828.  *      Destroy main window.                                                *
  829.  *                                                                          *
  830.  ****************************************************************************/
  831.  
  832. static MRESULT APIENTRY Destroy
  833. ( 
  834.   HWND hwnd, 
  835.   ULONG msg, 
  836.   MPARAM mp1, 
  837.   MPARAM mp2
  838. )
  839. {
  840.  /***************************************************************************
  841.   * Find the instance data.                                                 *
  842.   ***************************************************************************/
  843.  
  844.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  845.  
  846.  /***************************************************************************
  847.   * Kill the extra threads.                                                 *
  848.   ***************************************************************************/
  849.  
  850.   DosResumeThread ( Data->MonitorTID ) ;
  851.   Data->MonitorParms.Active = FALSE ;
  852.   DosWaitThread ( &Data->MonitorTID, DCWW_WAIT ) ;
  853.  
  854.   DosResumeThread ( Data->IdleLoopTID ) ;
  855.   Data->IdleLoopParms.Active = FALSE ;
  856.   DosWaitThread ( &Data->IdleLoopTID, DCWW_WAIT ) ;
  857.  
  858.  /***************************************************************************
  859.   * Release the instance memory.                                            *
  860.   ***************************************************************************/
  861.  
  862.   free ( Data ) ;
  863.  
  864.  /***************************************************************************
  865.   * We're done.                                                             *
  866.   ***************************************************************************/
  867.  
  868.   return ( MRFROMSHORT ( 0 ) ) ;
  869. }
  870.  
  871. /****************************************************************************
  872.  *                                                                          *
  873.  *      Resize the main window.                                             *
  874.  *                                                                          *
  875.  ****************************************************************************/
  876.  
  877. static MRESULT APIENTRY Size
  878. ( 
  879.   HWND hwnd, 
  880.   ULONG msg, 
  881.   MPARAM mp1, 
  882.   MPARAM mp2
  883. )
  884. {
  885.  /***************************************************************************
  886.   * Find the instance data.                                                 *
  887.   ***************************************************************************/
  888.  
  889.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  890.  
  891.  /***************************************************************************
  892.   * Find out the window's new position and size.                            *
  893.   ***************************************************************************/
  894.  
  895.   HWND FrameWindow = WinQueryWindow ( hwnd, QW_PARENT ) ;
  896.  
  897.   SWP Position ;
  898.   WinQueryWindowPos ( FrameWindow, &Position ) ;
  899.  
  900.   if ( NOT ( Position.fl & SWP_MINIMIZE )
  901.     AND NOT ( Position.fl & SWP_MAXIMIZE ) )
  902.   {
  903.     Data->IniData.Position.x = Position.x ;
  904.     Data->IniData.Position.y = Position.y ;
  905.  
  906.     Data->IniData.Position.cx = Position.cx ;
  907.     Data->IniData.Position.cy = Position.cy ;
  908.   }
  909.  
  910.  /***************************************************************************
  911.   * If the message was a sizing notification, recompute scaling factors.    *
  912.   ***************************************************************************/
  913.  
  914.   if ( msg == WM_SIZE )
  915.   {
  916.     Data->wi.cxClient = SHORT1FROMMP ( mp2 ) ;
  917.     Data->wi.cyClient = SHORT2FROMMP ( mp2 ) ;
  918.  
  919.     SHORT sDiamMM = (SHORT) min ( Data->wi.cxClient*1000L/Data->xPixelsPerMeter,
  920.       Data->wi.cyClient*1000L/Data->yPixelsPerMeter ) ;
  921.  
  922.     Data->wi.cxPixelDiam = (SHORT) ( Data->xPixelsPerMeter * sDiamMM / 1000 ) ;
  923.     Data->wi.cyPixelDiam = (SHORT) ( Data->yPixelsPerMeter * sDiamMM / 1000 ) ;
  924.   }
  925.  
  926.  /***************************************************************************
  927.   * If hiding the controls . . .                                            *
  928.   ***************************************************************************/
  929.  
  930.   if ( Data->IniData.HideControls )
  931.   {
  932.  
  933.    /*************************************************************************
  934.     * If changing to or from minimized state . . .                          *
  935.     *************************************************************************/
  936.  
  937.     if ( ( Position.fl & SWP_MINIMIZE ) != ( Data->IniData.Position.fl & SWP_MINIMIZE ) )
  938.     {
  939.  
  940.      /***********************************************************************
  941.       * Hide the controls if no longer minimized.                           *
  942.       ***********************************************************************/
  943.  
  944.       HideControls
  945.       (
  946.         NOT ( Position.fl & SWP_MINIMIZE ),
  947.         FrameWindow,
  948.         Data->hwndSysMenu,
  949.         Data->hwndTitleBar,
  950.         Data->hwndMinMax
  951.       ) ;
  952.     }
  953.   }
  954.  
  955.   Data->IniData.Position.fl = Position.fl ;
  956.  
  957.  /***************************************************************************
  958.   * We're done.                                                             *
  959.   ***************************************************************************/
  960.  
  961.   return ( 0 ) ;
  962. }
  963.  
  964. /****************************************************************************
  965.  *                                                                          *
  966.  *      Process SAVE APPLICATION message.                                   *
  967.  *                                                                          *
  968.  ****************************************************************************/
  969.  
  970. static MRESULT APIENTRY SaveApplication
  971. ( 
  972.   HWND hwnd, 
  973.   ULONG msg, 
  974.   MPARAM mp1, 
  975.   MPARAM mp2
  976. )
  977. {
  978.  /***************************************************************************
  979.   * Find the instance data.                                                 *
  980.   ***************************************************************************/
  981.  
  982.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  983.  
  984.  /***************************************************************************
  985.   * Call function to put all profile data out to the system.                *
  986.   ***************************************************************************/
  987.  
  988.   PutIniData ( Data->IniFile->QueryHandle(), &Data->IniData ) ;
  989.  
  990.  /***************************************************************************
  991.   * We're done.  Let the system complete default processing.                *
  992.   ***************************************************************************/
  993.  
  994.   return ( WinDefWindowProc ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ) ;
  995. }
  996.  
  997. /****************************************************************************
  998.  *                                                                          *
  999.  *      Process timer message.                                              *
  1000.  *                                                                          *
  1001.  ****************************************************************************/
  1002.  
  1003. static MRESULT APIENTRY Refresh
  1004. ( 
  1005.   HWND hwnd, 
  1006.   ULONG msg, 
  1007.   MPARAM mp1, 
  1008.   MPARAM mp2
  1009. )
  1010. {
  1011.  /***************************************************************************
  1012.   *                             Declarations                                *
  1013.   ***************************************************************************/
  1014.  
  1015.   static POINTL
  1016.     aptlHour[5]   = { 0,-15,  10,0,  0,60,  -10,0,  0,-15 },
  1017.     aptlMinute[5] = { 0,-20,   5,0,  0,80,   -5,0,  0,-20 },
  1018.     aptlSecond[2] = { 0,  0,   0,80 } ;
  1019.  
  1020.  /***************************************************************************
  1021.   * Find the instance data.                                                 *
  1022.   ***************************************************************************/
  1023.  
  1024.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1025.  
  1026.  /***************************************************************************
  1027.   * If we're supposed to float the window, do so here.                      *
  1028.   ***************************************************************************/
  1029.  
  1030.   if ( Data->IniData.Float )
  1031.     WinSetWindowPos ( WinQueryWindow(hwnd,QW_PARENT), HWND_TOP, 0, 0, 0, 0, SWP_ZORDER ) ;
  1032.  
  1033.  /***************************************************************************
  1034.   * Save the idle counter.                                                  *
  1035.   ***************************************************************************/
  1036.  
  1037.   Data->IdleCount = LONGFROMMP ( mp1 ) ;
  1038.  
  1039.  /***************************************************************************
  1040.   * Get current time.                                                       *
  1041.   ***************************************************************************/
  1042.  
  1043.   DATETIME DateTime ;
  1044.   DosGetDateTime ( &DateTime ) ;
  1045.  
  1046.   USHORT Hour = ( ( DateTime.hours * 5 ) % 60 + DateTime.minutes / 12 ) ;
  1047.  
  1048.  /***************************************************************************
  1049.   * Get presentation space.                                                 *
  1050.   ***************************************************************************/
  1051.  
  1052.   HPS hPS = WinGetPS ( hwnd ) ;
  1053.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, PLONG(NULL) ) ;
  1054.  
  1055.  /***************************************************************************
  1056.   * If analog or minimized . . .                                            *
  1057.   ***************************************************************************/
  1058.  
  1059.   if ( Data->IniData.Analog OR ( Data->IniData.Position.fl & SWP_MINIMIZE ) )
  1060.   {
  1061.  
  1062.    /*************************************************************************
  1063.     * If a new minute has arrived, and the clock is minimized, clear it.    *
  1064.     *************************************************************************/
  1065.  
  1066.     if ( ( Data->IniData.Position.fl & SWP_MINIMIZE )
  1067.       AND ( DateTime.minutes != Data->PreviousDateTime.minutes ) )
  1068.     {
  1069.       PaintBackground ( hwnd, hPS, Data, TRUE ) ;
  1070.     }
  1071.  
  1072.    /*************************************************************************
  1073.     * Erase the old clock hands.                                            *
  1074.     *************************************************************************/
  1075.  
  1076.     GpiSetColor ( hPS, Data->IniData.BackColor ) ;
  1077.     if ( ( Data->wi.cxClient > 50 ) AND ( Data->wi.cyClient > 50 ) )
  1078.     {
  1079.       DrawHand ( hPS, aptlSecond, 2, Data->PreviousDateTime.seconds, &Data->wi ) ;
  1080.     }
  1081.  
  1082.     if ( ( Hour != Data->PreviousHour )
  1083.       OR ( DateTime.minutes != Data->PreviousDateTime.minutes ) )
  1084.     {
  1085.       DrawHand ( hPS, aptlHour,   5, Data->PreviousHour,             &Data->wi ) ;
  1086.       DrawHand ( hPS, aptlMinute, 5, Data->PreviousDateTime.minutes, &Data->wi ) ;
  1087.     }
  1088.  
  1089.    /*************************************************************************
  1090.     * Draw the new clock hands.                                             *
  1091.     *************************************************************************/
  1092.  
  1093.     GpiSetColor ( hPS, Data->IniData.TextColor ) ;
  1094.     DrawHand ( hPS, aptlHour,   5, Hour,             &Data->wi ) ;
  1095.     DrawHand ( hPS, aptlMinute, 5, DateTime.minutes, &Data->wi ) ;
  1096.     if ( ( Data->wi.cxClient > 50 ) AND ( Data->wi.cyClient > 50 ) )
  1097.     {
  1098.       DrawHand ( hPS, aptlSecond, 2, DateTime.seconds, &Data->wi ) ;
  1099.     }
  1100.   }
  1101.  
  1102.  /***************************************************************************
  1103.   * Else if digital . . .                                                   *
  1104.   ***************************************************************************/
  1105.  
  1106.   else
  1107.   {
  1108.  
  1109.    /*************************************************************************
  1110.     * If minute has changed . . .                                           *
  1111.     *************************************************************************/
  1112.  
  1113.     if ( DateTime.minutes != Data->PreviousDateTime.minutes )
  1114.     {
  1115.       PaintDigitalTime ( hwnd, hPS, Data, &DateTime ) ;
  1116.     }
  1117.   }
  1118.  
  1119.  /***************************************************************************
  1120.   * Adjust the border color to suit the current alert level.                *
  1121.   ***************************************************************************/
  1122.  
  1123.   PaintBorder ( hwnd, hPS, Data, FALSE ) ;
  1124.  
  1125.  /***************************************************************************
  1126.   * Release presentation space.                                             *
  1127.   ***************************************************************************/
  1128.  
  1129.   WinReleasePS ( hPS ) ;
  1130.  
  1131.  /***************************************************************************
  1132.   * Chime if we've passed the top of the hour.  Save time when done.        *
  1133.   ***************************************************************************/
  1134.  
  1135.   if ( Data->IniData.Chime AND ( DateTime.hours != Data->PreviousDateTime.hours ) )
  1136.   {
  1137.     DosBeep  ( 400, 100 ) ;
  1138.     DosSleep (      100 ) ;
  1139.     DosBeep  ( 400, 100 ) ;
  1140.   }
  1141.  
  1142.   Data->PreviousDateTime = DateTime ;
  1143.   Data->PreviousHour = Hour ;
  1144.  
  1145.   return ( 0 ) ;
  1146. }
  1147.  
  1148. /****************************************************************************
  1149.  *                                                                          *
  1150.  *      Repaint entire window.                                              *
  1151.  *                                                                          *
  1152.  ****************************************************************************/
  1153.  
  1154. static MRESULT APIENTRY Paint
  1155. (
  1156.   HWND hwnd,
  1157.   ULONG msg,
  1158.   MPARAM mp1,
  1159.   MPARAM mp2
  1160. )
  1161. {
  1162.  /***************************************************************************
  1163.   *                             Declarations                                *
  1164.   ***************************************************************************/
  1165.  
  1166.   static POINTL
  1167.     aptlHour[5]   = { 0,-15,  10,0,  0,60,  -10,0,  0,-15 },
  1168.     aptlMinute[5] = { 0,-20,   5,0,  0,80,   -5,0,  0,-20 },
  1169.     aptlSecond[2] = { 0,  0,   0,80 } ;
  1170.  
  1171.  /***************************************************************************
  1172.   * Find the instance data.                                                 *
  1173.   ***************************************************************************/
  1174.  
  1175.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1176.  
  1177.  /***************************************************************************
  1178.   * Get presentation space and make it use RGB colors.                      *
  1179.   ***************************************************************************/
  1180.  
  1181.   HPS hPS = WinBeginPaint ( hwnd, HPS(NULL), PRECTL(NULL) ) ;
  1182.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, PLONG(NULL) ) ;
  1183.  
  1184.  /***************************************************************************
  1185.   * Paint the background.                                                   *
  1186.   ***************************************************************************/
  1187.  
  1188.   PaintBackground ( hwnd, hPS, Data, TRUE ) ;
  1189.  
  1190.  /***************************************************************************
  1191.   * If analog or minimized . . .                                            *
  1192.   ***************************************************************************/
  1193.  
  1194.   if ( Data->IniData.Analog OR ( Data->IniData.Position.fl & SWP_MINIMIZE ) )
  1195.   {
  1196.  
  1197.    /*************************************************************************
  1198.     * Draw hour, minute and second hands.                                   *
  1199.     *************************************************************************/
  1200.  
  1201.     DrawHand ( hPS, aptlHour,   5, Data->PreviousHour,             &Data->wi ) ;
  1202.     DrawHand ( hPS, aptlMinute, 5, Data->PreviousDateTime.minutes, &Data->wi ) ;
  1203.  
  1204.     if ( ( Data->wi.cxClient > 50 ) AND ( Data->wi.cyClient > 50 ) )
  1205.     {
  1206.       DrawHand ( hPS, aptlSecond, 2, Data->PreviousDateTime.seconds, &Data->wi ) ;
  1207.     }
  1208.   }
  1209.  
  1210.  /***************************************************************************
  1211.   * Else if digital . . .                                                   *
  1212.   ***************************************************************************/
  1213.  
  1214.   else
  1215.   {
  1216.     PaintDigitalTime ( hwnd, hPS, Data, &Data->PreviousDateTime ) ;
  1217.   }
  1218.  
  1219.  /***************************************************************************
  1220.   * Release presentation space and return.                                  *
  1221.   ***************************************************************************/
  1222.  
  1223.   WinEndPaint ( hPS ) ;
  1224.  
  1225.   return ( 0 ) ;
  1226. }
  1227.  
  1228. /****************************************************************************
  1229.  *                                                                          *
  1230.  *      Process commands received by Main Window                            *
  1231.  *                                                                          *
  1232.  ****************************************************************************/
  1233.  
  1234. static MRESULT APIENTRY Command
  1235. (
  1236.   HWND hwnd,
  1237.   ULONG msg,
  1238.   MPARAM mp1,
  1239.   MPARAM mp2
  1240. )
  1241. {
  1242.  /***************************************************************************
  1243.   * Dispatch the messages.  There is no default message processor.          *
  1244.   ***************************************************************************/
  1245.  
  1246.   static METHOD Methods [] =
  1247.   {
  1248.     { IDM_SAVE_APPLICATION, SaveApplication },
  1249.     { IDM_RESET_DEFAULTS,   ResetDefaults   },
  1250.     { IDM_HIDE_CONTROLS,    HideControlsCmd },
  1251.     { IDM_CONFIGURE,        Configure       },
  1252.     { IDM_EXIT,             Exit            },
  1253.     { IDM_ABOUT,            About           }
  1254.   } ;
  1255.  
  1256.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), 0 ) ) ;
  1257. }
  1258.  
  1259. /****************************************************************************
  1260.  *                                                                          *
  1261.  *      Process Reset Defaults menu command.                                *
  1262.  *                                                                          *
  1263.  ****************************************************************************/
  1264.  
  1265. static MRESULT APIENTRY ResetDefaults
  1266. ( 
  1267.   HWND hwnd, 
  1268.   ULONG msg, 
  1269.   MPARAM mp1, 
  1270.   MPARAM mp2
  1271. )
  1272. {
  1273.  /***************************************************************************
  1274.   * Find the instance data.                                                 *
  1275.   ***************************************************************************/
  1276.  
  1277.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1278.  
  1279.  /***************************************************************************
  1280.   * Reset all profile data for this program.                                *
  1281.   ***************************************************************************/
  1282.  
  1283.   PrfWriteProfileData ( Data->IniFile->QueryHandle(), PSZ(PROGRAM_NAME), PSZ(NULL), PSZ(NULL), 0 ) ;
  1284.  
  1285.  /***************************************************************************
  1286.   * Reset the program's presentation parameters.                            *
  1287.   ***************************************************************************/
  1288.  
  1289.   WinRemovePresParam ( hwnd, PP_FONTNAMESIZE ) ;
  1290.   WinRemovePresParam ( hwnd, PP_FOREGROUNDCOLOR ) ;
  1291.   WinRemovePresParam ( hwnd, PP_BACKGROUNDCOLOR ) ;
  1292.  
  1293.  /***************************************************************************
  1294.   * Done.                                                                   *
  1295.   ***************************************************************************/
  1296.  
  1297.   return ( MRFROMSHORT ( 0 ) ) ;
  1298. }
  1299.  
  1300. /****************************************************************************
  1301.  *                                                                          *
  1302.  *      Process Hide Controls menu command.                                 *
  1303.  *                                                                          *
  1304.  ****************************************************************************/
  1305.  
  1306. static MRESULT APIENTRY HideControlsCmd
  1307. ( 
  1308.   HWND hwnd, 
  1309.   ULONG msg, 
  1310.   MPARAM mp1, 
  1311.   MPARAM mp2
  1312. )
  1313. {
  1314.  /***************************************************************************
  1315.   * Find the instance data.                                                 *
  1316.   ***************************************************************************/
  1317.  
  1318.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1319.  
  1320.  /***************************************************************************
  1321.   * Get the frame window handle.                                            *
  1322.   ***************************************************************************/
  1323.  
  1324.   HWND FrameWindow = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1325.  
  1326.  /***************************************************************************
  1327.   * Toggle the Hide Controls setting.                                       *
  1328.   ***************************************************************************/
  1329.  
  1330.   Data->IniData.HideControls = Data->IniData.HideControls ? FALSE : TRUE ;
  1331.   Data->IniData.fHideControls = TRUE ;
  1332.  
  1333.  /***************************************************************************
  1334.   * If controls aren't hidden yet, update the menu check-mark.              *
  1335.   ***************************************************************************/
  1336.  
  1337.   if ( Data->IniData.HideControls )
  1338.     CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->IniData.HideControls ) ;
  1339.  
  1340.  /***************************************************************************
  1341.   * If not minimized right now, hide or reveal the controls.                *
  1342.   ***************************************************************************/
  1343.  
  1344.   if ( NOT ( Data->IniData.Position.fl & SWP_MINIMIZE ) )
  1345.   {
  1346.     HideControls
  1347.     (
  1348.       Data->IniData.HideControls,
  1349.       FrameWindow,
  1350.       Data->hwndSysMenu,
  1351.       Data->hwndTitleBar,
  1352.       Data->hwndMinMax
  1353.     ) ;
  1354.   }
  1355.  
  1356.  /***************************************************************************
  1357.   * If controls are no longer hidden, update the menu check-mark.           *
  1358.   ***************************************************************************/
  1359.  
  1360.   if ( NOT Data->IniData.HideControls )
  1361.     CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->IniData.HideControls ) ;
  1362.  
  1363.  /***************************************************************************
  1364.   * Done.                                                                   *
  1365.   ***************************************************************************/
  1366.  
  1367.   return ( MRFROMSHORT ( 0 ) ) ;
  1368. }
  1369.  
  1370. /****************************************************************************
  1371.  *                                                                          *
  1372.  *      Process Configure command.                                          *
  1373.  *                                                                          *
  1374.  ****************************************************************************/
  1375.  
  1376. static MRESULT APIENTRY Configure
  1377. ( 
  1378.   HWND hwnd, 
  1379.   ULONG msg, 
  1380.   MPARAM mp1, 
  1381.   MPARAM mp2
  1382. )
  1383. {
  1384.  /***************************************************************************
  1385.   * Find the instance data.                                                 *
  1386.   ***************************************************************************/
  1387.  
  1388.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1389.  
  1390.  /***************************************************************************
  1391.   * Invoke the Configure dialog.                                            *
  1392.   ***************************************************************************/
  1393.  
  1394.   CONFIG_PARMS Parms ;
  1395.   Parms.id           = IDD_CONFIGURE ;
  1396.   Parms.hwndHelp     = WinQueryHelpInstance ( hwnd ) ;
  1397.   Parms.Analog       = Data->IniData.Analog ;
  1398.   Parms.Hour24       = Data->IniData.Hour24 ;
  1399.   Parms.HideControls = Data->IniData.HideControls ;
  1400.   Parms.Chime        = Data->IniData.Chime ;
  1401.   Parms.Float        = Data->IniData.Float ;
  1402.   Parms.Animate      = Data->IniData.Animate ;
  1403.   Parms.AlertType    = Data->IniData.AlertType ;
  1404.  
  1405.   memcpy ( Parms.AlertLevels, Data->IniData.AlertLevels, sizeof(Parms.AlertLevels) ) ;
  1406.  
  1407.   if ( WinDlgBox ( HWND_DESKTOP, hwnd, ConfigureProcessor,
  1408.     Data->Library->QueryHandle(), IDD_CONFIGURE, &Parms ) )
  1409.   {
  1410.     Data->IniData.fHour24 = TRUE ;
  1411.     if ( Data->IniData.Hour24 != Parms.Hour24 )
  1412.     {
  1413.       Data->IniData.Hour24 = Parms.Hour24 ;
  1414.       WinInvalidateRect ( hwnd, PRECTL(NULL), FALSE ) ;
  1415.     }
  1416.  
  1417.     Data->IniData.fChime = TRUE ;
  1418.     Data->IniData.Chime = Parms.Chime ;
  1419.  
  1420.     Data->IniData.fFloat = TRUE ;
  1421.     Data->IniData.Float = Parms.Float ;
  1422.  
  1423.     Data->IniData.fAnimate = TRUE ;
  1424.     Data->IniData.Animate = Parms.Animate ;
  1425.  
  1426.     Data->IniData.fAlertType = TRUE ;
  1427.     if ( Data->IniData.AlertType != Parms.AlertType )
  1428.     {
  1429.       Data->IniData.AlertType = Parms.AlertType ;
  1430.       if ( Data->IniData.AlertType == ALERT_LOAD )
  1431.         DosResumeThread ( Data->IdleLoopTID ) ;
  1432.       else
  1433.         DosSuspendThread ( Data->IdleLoopTID ) ;
  1434.     }
  1435.  
  1436.     Data->IniData.fAnalog = TRUE ;
  1437.     if ( Data->IniData.Analog != Parms.Analog )
  1438.     {
  1439.       Data->IniData.Analog = Parms.Analog ;
  1440.       WinInvalidateRect ( hwnd, PRECTL(NULL), FALSE ) ;
  1441.     }
  1442.  
  1443.     Data->IniData.fHideControls = TRUE ;
  1444.     if ( Data->IniData.HideControls != Parms.HideControls )
  1445.     {
  1446.       HWND FrameWindow = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1447.       Data->IniData.HideControls = Parms.HideControls ;
  1448.       if ( Data->IniData.HideControls )
  1449.         CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->IniData.HideControls ) ;
  1450.       if ( NOT ( Data->IniData.Position.fl & SWP_MINIMIZE ) )
  1451.       {
  1452.         HideControls
  1453.         (
  1454.           Data->IniData.HideControls,
  1455.           FrameWindow,
  1456.           Data->hwndSysMenu,
  1457.           Data->hwndTitleBar,
  1458.           Data->hwndMinMax
  1459.         ) ;
  1460.       }
  1461.       if ( NOT Data->IniData.HideControls )
  1462.         CheckMenuItem ( FrameWindow, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->IniData.HideControls ) ;
  1463.     }
  1464.  
  1465.     Data->IniData.fAlertLevels = TRUE ;
  1466.     memcpy ( Data->IniData.AlertLevels, Parms.AlertLevels, sizeof(Parms.AlertLevels) ) ;
  1467.   }
  1468.  
  1469.  /***************************************************************************
  1470.   * Done.                                                                   *
  1471.   ***************************************************************************/
  1472.  
  1473.   return ( MRFROMSHORT ( 0 ) ) ;
  1474. }
  1475.  
  1476. /****************************************************************************
  1477.  *                                                                          *
  1478.  *      Process About menu command.                                         *
  1479.  *                                                                          *
  1480.  ****************************************************************************/
  1481.  
  1482. static MRESULT APIENTRY About
  1483. ( 
  1484.   HWND hwnd, 
  1485.   ULONG msg, 
  1486.   MPARAM mp1, 
  1487.   MPARAM mp2
  1488. )
  1489. {
  1490.  /***************************************************************************
  1491.   * Find the instance data.                                                 *
  1492.   ***************************************************************************/
  1493.  
  1494.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1495.  
  1496.  /***************************************************************************
  1497.   * Invoke the About dialog.                                                *
  1498.   ***************************************************************************/
  1499.  
  1500.   ABOUT_PARMS Parms ;
  1501.   Parms.id = IDD_ABOUT ;
  1502.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1503.  
  1504.   WinDlgBox ( HWND_DESKTOP, hwnd, AboutProcessor,
  1505.     Data->Library->QueryHandle(), IDD_ABOUT, &Parms ) ;
  1506.  
  1507.  /***************************************************************************
  1508.   * Done.                                                                   *
  1509.   ***************************************************************************/
  1510.  
  1511.   return ( MRFROMSHORT ( 0 ) ) ;
  1512. }
  1513.  
  1514. /****************************************************************************
  1515.  *                                                                          *
  1516.  *      Process Mouse Button being pressed.                                 *
  1517.  *                                                                          *
  1518.  ****************************************************************************/
  1519.  
  1520. static MRESULT APIENTRY ButtonDown
  1521. (
  1522.   HWND hwnd,
  1523.   ULONG msg,
  1524.   MPARAM mp1,
  1525.   MPARAM mp2
  1526. )
  1527. {
  1528.  /***************************************************************************
  1529.   * Find the instance data.                                                 *
  1530.   ***************************************************************************/
  1531.  
  1532.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1533.  
  1534.  /***************************************************************************
  1535.   * Determine the new window position.                                      *
  1536.   ***************************************************************************/
  1537.  
  1538.   TRACKINFO TrackInfo ;
  1539.   memset ( &TrackInfo, 0, sizeof(TrackInfo) ) ;
  1540.  
  1541.   TrackInfo.cxBorder = 1 ;
  1542.   TrackInfo.cyBorder = 1 ;
  1543.   TrackInfo.cxGrid = 1 ;
  1544.   TrackInfo.cyGrid = 1 ;
  1545.   TrackInfo.cxKeyboard = 8 ;
  1546.   TrackInfo.cyKeyboard = 8 ;
  1547.  
  1548.   HWND FrameWindow = WinQueryWindow ( hwnd, QW_PARENT ) ;
  1549.  
  1550.   SWP Position ;
  1551.   WinQueryWindowPos ( FrameWindow, &Position ) ;
  1552.   TrackInfo.rclTrack.xLeft   = Position.x ;
  1553.   TrackInfo.rclTrack.xRight  = Position.x + Position.cx ;
  1554.   TrackInfo.rclTrack.yBottom = Position.y ;
  1555.   TrackInfo.rclTrack.yTop    = Position.y + Position.cy ;
  1556.  
  1557.   WinQueryWindowPos ( HWND_DESKTOP, &Position ) ;
  1558.   TrackInfo.rclBoundary.xLeft   = Position.x ;
  1559.   TrackInfo.rclBoundary.xRight  = Position.x + Position.cx ;
  1560.   TrackInfo.rclBoundary.yBottom = Position.y ;
  1561.   TrackInfo.rclBoundary.yTop    = Position.y + Position.cy ;
  1562.  
  1563.   TrackInfo.ptlMinTrackSize.x = 0 ;
  1564.   TrackInfo.ptlMinTrackSize.y = 0 ;
  1565.   TrackInfo.ptlMaxTrackSize.x = Position.cx ;
  1566.   TrackInfo.ptlMaxTrackSize.y = Position.cy ;
  1567.  
  1568.   TrackInfo.fs = TF_MOVE | TF_STANDARD | TF_ALLINBOUNDARY ;
  1569.  
  1570.   if ( WinTrackRect ( HWND_DESKTOP, HPS(NULL), &TrackInfo ) )
  1571.   {
  1572.     WinSetWindowPos ( FrameWindow, HWND(NULL),
  1573.       (SHORT) TrackInfo.rclTrack.xLeft,
  1574.       (SHORT) TrackInfo.rclTrack.yBottom,
  1575.       0, 0, SWP_MOVE ) ;
  1576.   }
  1577.  
  1578.  /***************************************************************************
  1579.   * Return through the default processor, letting window activation         *
  1580.   *   and other system functions occur.                                     *
  1581.   ***************************************************************************/
  1582.  
  1583.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1584. }
  1585.  
  1586. /****************************************************************************
  1587.  *                                                                          *
  1588.  *      Process Mouse Button having been double-clicked.                    *
  1589.  *                                                                          *
  1590.  ****************************************************************************/
  1591.  
  1592. static MRESULT APIENTRY ButtonDblClick
  1593. (
  1594.   HWND hwnd,
  1595.   ULONG msg,
  1596.   MPARAM mp1,
  1597.   MPARAM mp2
  1598. )
  1599. {
  1600.  /***************************************************************************
  1601.   * Send message to self to stop hiding the controls.                       *
  1602.   ***************************************************************************/
  1603.  
  1604.   WinPostMsg ( hwnd, WM_COMMAND,
  1605.     MPFROM2SHORT ( IDM_HIDE_CONTROLS, 0 ),
  1606.     MPFROM2SHORT ( CMDSRC_OTHER, TRUE ) ) ;
  1607.  
  1608.  /***************************************************************************
  1609.   * Return through the default processor, letting window activation         *
  1610.   *   and other system functions occur.                                     *
  1611.   ***************************************************************************/
  1612.  
  1613.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1614. }
  1615.  
  1616. /****************************************************************************
  1617.  *                                                                          *
  1618.  *      Process Presentation Parameter Changed notification.                *
  1619.  *                                                                          *
  1620.  ****************************************************************************/
  1621.  
  1622. static MRESULT APIENTRY PresParamChanged
  1623. (
  1624.   HWND hwnd,
  1625.   ULONG msg,
  1626.   MPARAM mp1,
  1627.   MPARAM mp2
  1628. )
  1629. {
  1630.  /***************************************************************************
  1631.   * Find the instance data.                                                 *
  1632.   ***************************************************************************/
  1633.  
  1634.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1635.  
  1636.  /***************************************************************************
  1637.   * Get the presentation parameter that changed.                            *
  1638.   ***************************************************************************/
  1639.  
  1640.   switch ( LONGFROMMP(mp1) )
  1641.   {
  1642.  
  1643.    /*************************************************************************
  1644.     * If font, note the fact that we now have a font to be saved as         *
  1645.     *   part of the configuration.  Get the font metrics and resize         *
  1646.     *   the window appropriately.                                           *
  1647.     *************************************************************************/
  1648.  
  1649.     case PP_FONTNAMESIZE:
  1650.     {
  1651.       ULONG ppid ;
  1652.       if ( WinQueryPresParam ( hwnd, PP_FONTNAMESIZE, 0, &ppid,
  1653.         sizeof(Data->IniData.FontNameSize), &Data->IniData.FontNameSize,
  1654.         0 ) )
  1655.       {
  1656.         Data->IniData.fFontNameSize = TRUE ;
  1657.       }
  1658.       else
  1659.       {
  1660.         strcpy ( PCHAR(Data->IniData.FontNameSize), "" ) ;
  1661.         Data->IniData.fFontNameSize = FALSE ;
  1662.         PrfWriteProfileData ( Data->IniFile->QueryHandle(), PSZ(PROGRAM_NAME), PSZ("FontNameSize"), NULL, 0 ) ;
  1663.       }
  1664.       WinInvalidateRect ( hwnd, PRECTL(NULL), TRUE ) ;
  1665.       break ;
  1666.     }
  1667.  
  1668.    /*************************************************************************
  1669.     * If background color, note the fact and repaint the window.            *
  1670.     *************************************************************************/
  1671.  
  1672.     case PP_BACKGROUNDCOLOR:
  1673.     {
  1674.       ULONG ppid ;
  1675.       if ( WinQueryPresParam ( hwnd, PP_BACKGROUNDCOLOR, 0, &ppid,
  1676.         sizeof(Data->IniData.BackColor), &Data->IniData.BackColor, 0 ) )
  1677.       {
  1678.         Data->IniData.fBackColor = TRUE ;
  1679.       }
  1680.       else
  1681.       {
  1682.         Data->IniData.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1683.         Data->IniData.fBackColor = FALSE ;
  1684.         PrfWriteProfileData ( Data->IniFile->QueryHandle(), PSZ(PROGRAM_NAME), PSZ("BackgroundColor"), NULL, 0 ) ;
  1685.       }
  1686.       WinInvalidateRect ( hwnd, PRECTL(NULL), TRUE ) ;
  1687.       break ;
  1688.     }
  1689.  
  1690.    /*************************************************************************
  1691.     * If foreground color, note the fact and repaint the window.            *
  1692.     *************************************************************************/
  1693.  
  1694.     case PP_FOREGROUNDCOLOR:
  1695.     {
  1696.       ULONG ppid ;
  1697.       if ( WinQueryPresParam ( hwnd, PP_FOREGROUNDCOLOR, 0, &ppid,
  1698.         sizeof(Data->IniData.TextColor), &Data->IniData.TextColor, 0 ) )
  1699.       {
  1700.         Data->IniData.fTextColor = TRUE ;
  1701.       }
  1702.       else
  1703.       {
  1704.         Data->IniData.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1705.         Data->IniData.fTextColor = FALSE ;
  1706.         PrfWriteProfileData ( Data->IniFile->QueryHandle(), PSZ(PROGRAM_NAME), PSZ("ForegroundColor"), NULL, 0 ) ;
  1707.       }
  1708.       WinInvalidateRect ( hwnd, PRECTL(NULL), TRUE ) ;
  1709.       break ;
  1710.     }
  1711.   }
  1712.  
  1713.  /***************************************************************************
  1714.   * Return through the default processor, letting window activation         *
  1715.   *   and other system functions occur.                                     *
  1716.   ***************************************************************************/
  1717.  
  1718.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1719. }
  1720.  
  1721. /****************************************************************************
  1722.  *                                                                          *
  1723.  *      Process System Color Change notification.                           *
  1724.  *                                                                          *
  1725.  ****************************************************************************/
  1726.  
  1727. static MRESULT APIENTRY SysColorChange
  1728. (
  1729.   HWND hwnd,
  1730.   ULONG msg,
  1731.   MPARAM mp1,
  1732.   MPARAM mp2
  1733. )
  1734. {
  1735.  /***************************************************************************
  1736.   * Find the instance data.                                                 *
  1737.   ***************************************************************************/
  1738.  
  1739.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1740.  
  1741.  /***************************************************************************
  1742.   * If we aren't using custom colors, then query for the new defaults.      *
  1743.   ***************************************************************************/
  1744.  
  1745.   if ( NOT Data->IniData.fBackColor )
  1746.   {
  1747.     Data->IniData.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1748.   }
  1749.  
  1750.   if ( NOT Data->IniData.fTextColor )
  1751.   {
  1752.     Data->IniData.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1753.   }
  1754.  
  1755.  /***************************************************************************
  1756.   * Return value must be NULL, according to the documentation.              *
  1757.   ***************************************************************************/
  1758.  
  1759.   return ( MRFROMP ( NULL ) ) ;
  1760. }
  1761.  
  1762. /****************************************************************************
  1763.  *                                                                          *
  1764.  *      Process Query for Keys Help resource id.                            *
  1765.  *                                                                          *
  1766.  ****************************************************************************/
  1767.  
  1768. static MRESULT APIENTRY QueryKeysHelp
  1769. (
  1770.   HWND hwnd,
  1771.   ULONG msg,
  1772.   MPARAM mp1,
  1773.   MPARAM mp2
  1774. )
  1775. {
  1776.  /***************************************************************************
  1777.   * Simply return the ID of the Keys Help panel.                            *
  1778.   ***************************************************************************/
  1779.  
  1780.   return ( (MRESULT) IDM_KEYS_HELP ) ;
  1781. }
  1782.  
  1783. /****************************************************************************
  1784.  *                                                                          *
  1785.  *      Process Help Manager Error                                          *
  1786.  *                                                                          *
  1787.  ****************************************************************************/
  1788.  
  1789. static MRESULT APIENTRY HelpError
  1790. ( 
  1791.   HWND hwnd, 
  1792.   ULONG msg, 
  1793.   MPARAM mp1, 
  1794.   MPARAM mp2
  1795. )
  1796. {
  1797.  /***************************************************************************
  1798.   * Local Declarations                                                      *
  1799.   ***************************************************************************/
  1800.  
  1801.   static struct
  1802.   {
  1803.     ULONG Error ;
  1804.     USHORT StringId ;
  1805.   }
  1806.   HelpErrors [] =
  1807.   {
  1808.     { HMERR_NO_FRAME_WND_IN_CHAIN,     IDS_HMERR_NO_FRAME_WND_IN_CHAIN },
  1809.     { HMERR_INVALID_ASSOC_APP_WND,     IDS_HMERR_INVALID_ASSOC_APP_WND },
  1810.     { HMERR_INVALID_ASSOC_HELP_INST,   IDS_HMERR_INVALID_ASSOC_HELP_IN },
  1811.     { HMERR_INVALID_DESTROY_HELP_INST, IDS_HMERR_INVALID_DESTROY_HELP_ },
  1812.     { HMERR_NO_HELP_INST_IN_CHAIN,     IDS_HMERR_NO_HELP_INST_IN_CHAIN },
  1813.     { HMERR_INVALID_HELP_INSTANCE_HDL, IDS_HMERR_INVALID_HELP_INSTANCE },
  1814.     { HMERR_INVALID_QUERY_APP_WND,     IDS_HMERR_INVALID_QUERY_APP_WND },
  1815.     { HMERR_HELP_INST_CALLED_INVALID,  IDS_HMERR_HELP_INST_CALLED_INVA },
  1816.     { HMERR_HELPTABLE_UNDEFINE,        IDS_HMERR_HELPTABLE_UNDEFINE    },
  1817.     { HMERR_HELP_INSTANCE_UNDEFINE,    IDS_HMERR_HELP_INSTANCE_UNDEFIN },
  1818.     { HMERR_HELPITEM_NOT_FOUND,        IDS_HMERR_HELPITEM_NOT_FOUND    },
  1819.     { HMERR_INVALID_HELPSUBITEM_SIZE,  IDS_HMERR_INVALID_HELPSUBITEM_S },
  1820.     { HMERR_HELPSUBITEM_NOT_FOUND,     IDS_HMERR_HELPSUBITEM_NOT_FOUND },
  1821.     { HMERR_INDEX_NOT_FOUND,           IDS_HMERR_INDEX_NOT_FOUND       },
  1822.     { HMERR_CONTENT_NOT_FOUND,         IDS_HMERR_CONTENT_NOT_FOUND     },
  1823.     { HMERR_OPEN_LIB_FILE,             IDS_HMERR_OPEN_LIB_FILE         },
  1824.     { HMERR_READ_LIB_FILE,             IDS_HMERR_READ_LIB_FILE         },
  1825.     { HMERR_CLOSE_LIB_FILE,            IDS_HMERR_CLOSE_LIB_FILE        },
  1826.     { HMERR_INVALID_LIB_FILE,          IDS_HMERR_INVALID_LIB_FILE      },
  1827.     { HMERR_NO_MEMORY,                 IDS_HMERR_NO_MEMORY             },
  1828.     { HMERR_ALLOCATE_SEGMENT,          IDS_HMERR_ALLOCATE_SEGMENT      },
  1829.     { HMERR_FREE_MEMORY,               IDS_HMERR_FREE_MEMORY           },
  1830.     { HMERR_PANEL_NOT_FOUND,           IDS_HMERR_PANEL_NOT_FOUND       },
  1831.     { HMERR_DATABASE_NOT_OPEN,         IDS_HMERR_DATABASE_NOT_OPEN     },
  1832.     { 0,                               IDS_HMERR_UNKNOWN               }
  1833.   } ;
  1834.  
  1835.   ULONG ErrorCode = (ULONG) LONGFROMMP ( mp1 ) ;
  1836.  
  1837.  /***************************************************************************
  1838.   * Find the instance data.                                                 *
  1839.   ***************************************************************************/
  1840.  
  1841.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1842.  
  1843.  /***************************************************************************
  1844.   * Find the error code in the message table.                               *
  1845.   ***************************************************************************/
  1846.  
  1847.   int Index = 0 ;
  1848.   while ( HelpErrors[Index].Error
  1849.     AND ( HelpErrors[Index].Error != ErrorCode ) )
  1850.   {
  1851.     Index ++ ;
  1852.   }
  1853.  
  1854.  /***************************************************************************
  1855.   * Get the message texts.                                                  *
  1856.   ***************************************************************************/
  1857.  
  1858.   ResourceString Title ( Data->Library->QueryHandle(), IDS_HMERR ) ;
  1859.  
  1860.   ResourceString Message ( Data->Library->QueryHandle(), HelpErrors[Index].StringId ) ;
  1861.  
  1862.  /***************************************************************************
  1863.   * Display the error message.                                              *
  1864.   ***************************************************************************/
  1865.  
  1866.   WinMessageBox
  1867.   (
  1868.     HWND_DESKTOP,
  1869.     hwnd,
  1870.     PSZ(Message),
  1871.     PSZ(Title),
  1872.     0,
  1873.     MB_OK | MB_WARNING
  1874.   ) ;
  1875.  
  1876.  /***************************************************************************
  1877.   * Return zero, indicating that the message was processed.                 *
  1878.   ***************************************************************************/
  1879.  
  1880.   return ( MRFROMSHORT ( 0 ) ) ;
  1881. }
  1882.  
  1883. /****************************************************************************
  1884.  *                                                                          *
  1885.  *      Process "Extended Help Undefined" notification                      *
  1886.  *                                                                          *
  1887.  ****************************************************************************/
  1888.  
  1889. static MRESULT APIENTRY ExtHelpUndefined
  1890. ( 
  1891.   HWND hwnd, 
  1892.   ULONG msg, 
  1893.   MPARAM mp1, 
  1894.   MPARAM mp2
  1895. )
  1896. {
  1897.  /***************************************************************************
  1898.   * Find the instance data.                                                 *
  1899.   ***************************************************************************/
  1900.  
  1901.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1902.  
  1903.  /***************************************************************************
  1904.   * Get the message texts.                                                  *
  1905.   ***************************************************************************/
  1906.  
  1907.   ResourceString Title ( Data->Library->QueryHandle(), IDS_HMERR ) ;
  1908.  
  1909.   ResourceString Message ( Data->Library->QueryHandle(), IDS_HMERR_EXTHELPUNDEFINED ) ;
  1910.  
  1911.  /***************************************************************************
  1912.   * Display the error message.                                              *
  1913.   ***************************************************************************/
  1914.  
  1915.   WinMessageBox
  1916.   (
  1917.     HWND_DESKTOP,
  1918.     hwnd,
  1919.     PSZ(Message),
  1920.     PSZ(Title),
  1921.     0,
  1922.     MB_OK | MB_WARNING
  1923.   ) ;
  1924.  
  1925.  /***************************************************************************
  1926.   * Return zero, indicating that the message was processed.                 *
  1927.   ***************************************************************************/
  1928.  
  1929.   return ( MRFROMSHORT ( 0 ) ) ;
  1930. }
  1931.  
  1932. /****************************************************************************
  1933.  *                                                                          *
  1934.  *      Process "Help Subitem Not Found" notification                       *
  1935.  *                                                                          *
  1936.  ****************************************************************************/
  1937.  
  1938. static MRESULT APIENTRY HelpSubitemNotFound
  1939. ( 
  1940.   HWND hwnd, 
  1941.   ULONG msg, 
  1942.   MPARAM mp1, 
  1943.   MPARAM mp2
  1944. )
  1945. {
  1946.  /***************************************************************************
  1947.   * Find the instance data.                                                 *
  1948.   ***************************************************************************/
  1949.  
  1950.   PDATA Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1951.  
  1952.  /***************************************************************************
  1953.   * Get the title text.                                                     *
  1954.   ***************************************************************************/
  1955.  
  1956.   ResourceString Title ( Data->Library->QueryHandle(), IDS_HMERR ) ;
  1957.  
  1958.  /***************************************************************************
  1959.   * Format the error message.                                               *
  1960.   ***************************************************************************/
  1961.  
  1962.   USHORT Topic = (USHORT) SHORT1FROMMP ( mp2 ) ;
  1963.   USHORT Subtopic = (USHORT) SHORT2FROMMP ( mp2 ) ;
  1964.  
  1965.   ResourceString Frame   ( Data->Library->QueryHandle(), IDS_HELPMODE_FRAME ) ;
  1966.   ResourceString Menu    ( Data->Library->QueryHandle(), IDS_HELPMODE_MENU ) ;
  1967.   ResourceString Window  ( Data->Library->QueryHandle(), IDS_HELPMODE_WINDOW ) ;
  1968.   ResourceString Unknown ( Data->Library->QueryHandle(), IDS_HELPMODE_UNKNOWN ) ;
  1969.  
  1970.   PBYTE Mode ;
  1971.   switch ( SHORT1FROMMP ( mp1 ) )
  1972.   {
  1973.     case HLPM_FRAME:
  1974.       Mode = PSZ(Frame) ;
  1975.       break ;
  1976.  
  1977.     case HLPM_MENU:
  1978.       Mode = PSZ(Menu) ;
  1979.       break ;
  1980.  
  1981.     case HLPM_WINDOW:
  1982.       Mode = PSZ(Window) ;
  1983.       break ;
  1984.  
  1985.     default:
  1986.       Mode = PSZ(Unknown) ;
  1987.   }
  1988.  
  1989.   ResourceString Format ( Data->Library->QueryHandle(), IDS_HELPSUBITEMNOTFOUND ) ;
  1990.  
  1991.   BYTE Message [200] ;
  1992.   sprintf ( PCHAR(Message), PCHAR(Format), Mode, Topic, Subtopic ) ;
  1993.  
  1994.  /***************************************************************************
  1995.   * Display the error message.                                              *
  1996.   ***************************************************************************/
  1997.  
  1998.   WinMessageBox
  1999.   (
  2000.     HWND_DESKTOP,
  2001.     hwnd,
  2002.     Message,
  2003.     PSZ(Title),
  2004.     0,
  2005.     MB_OK | MB_WARNING
  2006.   ) ;
  2007.  
  2008.  /***************************************************************************
  2009.   * Return zero, indicating that the message was processed.                 *
  2010.   ***************************************************************************/
  2011.  
  2012.   return ( MRFROMSHORT ( 0 ) ) ;
  2013. }
  2014.  
  2015.  
  2016. /****************************************************************************
  2017.  *                                                                          *
  2018.  *                           Get Profile Data                               *
  2019.  *                                                                          *
  2020.  ****************************************************************************/
  2021.  
  2022. static int GetIniData ( HINI IniHandle, PINIDATA IniData )
  2023. {
  2024.  /***************************************************************************
  2025.   * Get the window's current size and position.                             *
  2026.   ***************************************************************************/
  2027.  
  2028.   #pragma pack(2)
  2029.   typedef struct {
  2030.     USHORT Filler ;
  2031.     USHORT fs ;
  2032.     USHORT cy, cx, y, x ;
  2033.     HWND hwndInsertBehind ;
  2034.     HWND hwnd ;
  2035.   } OLDSWP ;
  2036.   #pragma pack()
  2037.  
  2038.   ULONG Size ;
  2039.   memset ( &IniData->Position, 0, sizeof(IniData->Position) ) ;
  2040.   IniData->fPosition = FALSE ;
  2041.   if ( PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Position"), &Size ) )
  2042.   {
  2043.     if ( Size == sizeof(OLDSWP)-sizeof(USHORT) )
  2044.     {
  2045.       OLDSWP OldPosition ;
  2046.       if ( PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Position"), &OldPosition.fs, &Size ) )
  2047.       {
  2048.         IniData->Position.fl = OldPosition.fs ;
  2049.         IniData->Position.cy = OldPosition.cy ;
  2050.         IniData->Position.cx = OldPosition.cx ;
  2051.         IniData->Position.y = OldPosition.y ;
  2052.         IniData->Position.x = OldPosition.x ;
  2053.         IniData->Position.hwndInsertBehind = OldPosition.hwndInsertBehind ;
  2054.         IniData->Position.hwnd = OldPosition.hwnd ;
  2055.         IniData->fPosition = TRUE ;
  2056.       }
  2057.     }
  2058.     else if ( Size == sizeof(IniData->Position) )
  2059.     {
  2060.       if ( PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Position"), &IniData->Position, &Size ) )
  2061.       {
  2062.         IniData->fPosition = TRUE ;
  2063.       }
  2064.     }
  2065.   }
  2066.  
  2067.   if ( NOT IniData->fPosition )
  2068.   {
  2069.     if ( IniHandle == HINI_USERPROFILE )
  2070.     {
  2071.       return ( 1 ) ;
  2072.     }
  2073.   }
  2074.  
  2075.  /***************************************************************************
  2076.   * Get the program options.                                                *
  2077.   ***************************************************************************/
  2078.  
  2079.   IniData->Hour24 = FALSE ;
  2080.   if
  2081.   (
  2082.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Hour24"), &Size )
  2083.     AND
  2084.     ( ( Size == sizeof(IniData->Hour24) ) OR ( Size == sizeof(SHORT) ) )
  2085.     AND
  2086.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Hour24"), &IniData->Hour24, &Size )
  2087.   )
  2088.   {
  2089.     IniData->fHour24 = TRUE ;
  2090.   }
  2091.  
  2092.   IniData->HideControls = FALSE ;
  2093.   if
  2094.   (
  2095.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("HideControls"), &Size )
  2096.     AND
  2097.     ( ( Size == sizeof(IniData->HideControls) ) OR ( Size == sizeof(SHORT) ) )
  2098.     AND
  2099.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("HideControls"), &IniData->HideControls, &Size )
  2100.   )
  2101.   {
  2102.     IniData->fHideControls = TRUE ;
  2103.   }
  2104.  
  2105.   IniData->Chime = FALSE ;
  2106.   if
  2107.   (
  2108.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Chime"), &Size )
  2109.     AND
  2110.     ( ( Size == sizeof(IniData->Chime) ) OR ( Size == sizeof(SHORT) ) )
  2111.     AND
  2112.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Chime"), &IniData->Chime, &Size )
  2113.   )
  2114.   {
  2115.     IniData->fChime = TRUE ;
  2116.   }
  2117.  
  2118.   IniData->Float = FALSE ;
  2119.   if
  2120.   (
  2121.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Float"), &Size )
  2122.     AND
  2123.     ( ( Size == sizeof(IniData->Float) ) OR ( Size == sizeof(SHORT) ) )
  2124.     AND
  2125.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Float"), &IniData->Float, &Size )
  2126.   )
  2127.   {
  2128.     IniData->fFloat = TRUE ;
  2129.   }
  2130.  
  2131.   IniData->Animate = FALSE ;
  2132.   if
  2133.   (
  2134.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Animate"), &Size )
  2135.     AND
  2136.     ( ( Size == sizeof(IniData->Animate) ) OR ( Size == sizeof(SHORT) ) )
  2137.     AND
  2138.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Animate"), &IniData->Animate, &Size )
  2139.   )
  2140.   {
  2141.     IniData->fAnimate = TRUE ;
  2142.   }
  2143.  
  2144.   IniData->Analog = TRUE ;
  2145.   if
  2146.   (
  2147.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Analog"), &Size )
  2148.     AND
  2149.     ( ( Size == sizeof(IniData->Analog) ) OR ( Size == sizeof(SHORT) ) )
  2150.     AND
  2151.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("Analog"), &IniData->Analog, &Size )
  2152.   )
  2153.   {
  2154.     IniData->fAnalog = TRUE ;
  2155.   }
  2156.  
  2157.   IniData->AlertType = ALERT_TASKCOUNT ;
  2158.   if
  2159.   (
  2160.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("AlertType"), &Size )
  2161.     AND
  2162.     ( ( Size == sizeof(IniData->AlertType) ) OR ( Size == sizeof(SHORT) ) )
  2163.     AND
  2164.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("AlertType"), &IniData->AlertType, &Size )
  2165.   )
  2166.   {
  2167.     IniData->fAlertType = TRUE ;
  2168.   }
  2169.  
  2170.   IniData->AlertLevels [ALERT_TASKCOUNT] [0] = 8 ;
  2171.   IniData->AlertLevels [ALERT_TASKCOUNT] [1] = 12 ;
  2172.   IniData->AlertLevels [ALERT_LOAD]      [0] = 33 ;
  2173.   IniData->AlertLevels [ALERT_LOAD]      [1] = 67 ;
  2174.  
  2175.   if
  2176.   (
  2177.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("AlertLevels"), &Size )
  2178.     AND
  2179.     ( Size == sizeof(IniData->AlertLevels) )
  2180.     AND
  2181.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("AlertLevels"), IniData->AlertLevels, &Size )
  2182.   )
  2183.   {
  2184.     IniData->fAlertLevels = TRUE ;
  2185.   }
  2186.  
  2187.  /***************************************************************************
  2188.   * Get the presentation parameters.                                        *
  2189.   ***************************************************************************/
  2190.  
  2191.   strcpy ( PCHAR(IniData->FontNameSize), "" ) ;
  2192.   IniData->fFontNameSize = FALSE ;
  2193.   if
  2194.   (
  2195.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("FontNameSize"), &Size )
  2196.     AND
  2197.     ( Size == sizeof(IniData->FontNameSize) )
  2198.     AND
  2199.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("FontNameSize"), &IniData->FontNameSize, &Size )
  2200.   )
  2201.   {
  2202.     IniData->fFontNameSize = TRUE ;
  2203.   }
  2204.  
  2205.   IniData->BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  2206.   IniData->fBackColor = FALSE ;
  2207.   if
  2208.   (
  2209.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("BackgroundColor"), &Size )
  2210.     AND
  2211.     ( Size == sizeof(IniData->BackColor) )
  2212.     AND
  2213.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("BackgroundColor"), &IniData->BackColor, &Size )
  2214.   )
  2215.   {
  2216.     IniData->fBackColor = TRUE ;
  2217.   }
  2218.  
  2219.   IniData->TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  2220.   IniData->fTextColor = FALSE ;
  2221.   if
  2222.   (
  2223.     PrfQueryProfileSize ( IniHandle, PSZ(PROGRAM_NAME), PSZ("ForegroundColor"), &Size )
  2224.     AND
  2225.     ( Size == sizeof(IniData->TextColor) )
  2226.     AND
  2227.     PrfQueryProfileData ( IniHandle, PSZ(PROGRAM_NAME), PSZ("ForegroundColor"), &IniData->TextColor, &Size )
  2228.   )
  2229.   {
  2230.     IniData->fTextColor = TRUE ;
  2231.   }
  2232.  
  2233.  /***************************************************************************
  2234.   * Return no error.                                                        *
  2235.   ***************************************************************************/
  2236.  
  2237.   return ( 0 ) ;
  2238. }
  2239.  
  2240. /****************************************************************************
  2241.  *                                                                          *
  2242.  *                           Put Profile Data                               *
  2243.  *                                                                          *
  2244.  ****************************************************************************/
  2245.  
  2246. static VOID PutIniData ( HINI IniHandle, PINIDATA IniData )
  2247. {
  2248.  /***************************************************************************
  2249.   * Save the window's current size and position.                            *
  2250.   ***************************************************************************/
  2251.  
  2252.   PrfWriteProfileData
  2253.   (
  2254.     IniHandle,
  2255.     PSZ(PROGRAM_NAME),
  2256.     PSZ("Position"),
  2257.     &IniData->Position,
  2258.     sizeof(IniData->Position)
  2259.   ) ;
  2260.  
  2261.  /***************************************************************************
  2262.   * Save the program options.                                               *
  2263.   ***************************************************************************/
  2264.  
  2265.   if ( IniData->fHour24 )
  2266.   {
  2267.     PrfWriteProfileData
  2268.     (
  2269.       IniHandle,
  2270.       PSZ(PROGRAM_NAME),
  2271.       PSZ("Hour24"),
  2272.       &IniData->Hour24,
  2273.       (ULONG)sizeof(IniData->Hour24)
  2274.     ) ;
  2275.   }
  2276.  
  2277.   if ( IniData->fHideControls )
  2278.   {
  2279.     PrfWriteProfileData
  2280.     (
  2281.       IniHandle,
  2282.       PSZ(PROGRAM_NAME),
  2283.       PSZ("HideControls"),
  2284.       &IniData->HideControls,
  2285.       (ULONG)sizeof(IniData->HideControls)
  2286.     ) ;
  2287.   }
  2288.  
  2289.   if ( IniData->fChime )
  2290.   {
  2291.     PrfWriteProfileData
  2292.     (
  2293.       IniHandle,
  2294.       PSZ(PROGRAM_NAME),
  2295.       PSZ("Chime"),
  2296.       &IniData->Chime,
  2297.       (ULONG)sizeof(IniData->Chime)
  2298.     ) ;
  2299.   }
  2300.  
  2301.   if ( IniData->fFloat )
  2302.   {
  2303.     PrfWriteProfileData
  2304.     (
  2305.       IniHandle,
  2306.       PSZ(PROGRAM_NAME),
  2307.       PSZ("Float"),
  2308.       &IniData->Float,
  2309.       (ULONG)sizeof(IniData->Float)
  2310.     ) ;
  2311.   }
  2312.  
  2313.   if ( IniData->fAnimate )
  2314.   {
  2315.     PrfWriteProfileData
  2316.     (
  2317.       IniHandle,
  2318.       PSZ(PROGRAM_NAME),
  2319.       PSZ("Animate"),
  2320.       &IniData->Animate,
  2321.       (ULONG)sizeof(IniData->Animate)
  2322.     ) ;
  2323.   }
  2324.  
  2325.   if ( IniData->fAnalog )
  2326.   {
  2327.     PrfWriteProfileData
  2328.     (
  2329.       IniHandle,
  2330.       PSZ(PROGRAM_NAME),
  2331.       PSZ("Analog"),
  2332.       &IniData->Analog,
  2333.       (ULONG)sizeof(IniData->Analog)
  2334.     ) ;
  2335.   }
  2336.  
  2337.   if ( IniData->fAlertType )
  2338.   {
  2339.     PrfWriteProfileData
  2340.     (
  2341.       IniHandle,
  2342.       PSZ(PROGRAM_NAME),
  2343.       PSZ("AlertType"),
  2344.       &IniData->AlertType,
  2345.       (ULONG)sizeof(IniData->AlertType)
  2346.     ) ;
  2347.   }
  2348.  
  2349.   if ( IniData->fAlertLevels )
  2350.   {
  2351.     PrfWriteProfileData
  2352.     (
  2353.       IniHandle,
  2354.       PSZ(PROGRAM_NAME),
  2355.       PSZ("AlertLevels"),
  2356.       IniData->AlertLevels,
  2357.       (ULONG)sizeof(IniData->AlertLevels)
  2358.     ) ;
  2359.   }
  2360.  
  2361.  /***************************************************************************
  2362.   * Save the presentation parameters.                                       *
  2363.   ***************************************************************************/
  2364.  
  2365.   if ( IniData->fFontNameSize )
  2366.   {
  2367.     PrfWriteProfileData
  2368.     (
  2369.       IniHandle,
  2370.       PSZ(PROGRAM_NAME),
  2371.       PSZ("FontNameSize"),
  2372.       IniData->FontNameSize,
  2373.       sizeof(IniData->FontNameSize)
  2374.     ) ;
  2375.   }
  2376.  
  2377.   if ( IniData->fBackColor )
  2378.   {
  2379.     PrfWriteProfileData
  2380.     (
  2381.       IniHandle,
  2382.       PSZ(PROGRAM_NAME),
  2383.       PSZ("BackgroundColor"),
  2384.       &IniData->BackColor,
  2385.       sizeof(IniData->BackColor)
  2386.     ) ;
  2387.   }
  2388.  
  2389.   if ( IniData->fTextColor )
  2390.   {
  2391.     PrfWriteProfileData
  2392.     (
  2393.       IniHandle,
  2394.       PSZ(PROGRAM_NAME),
  2395.       PSZ("ForegroundColor"),
  2396.       &IniData->TextColor,
  2397.       sizeof(IniData->TextColor)
  2398.     ) ;
  2399.   }
  2400. }
  2401.  
  2402. /****************************************************************************
  2403.  *                                                                          *
  2404.  *      Perform point coordinate rotation.                                  *
  2405.  *                                                                          *
  2406.  ****************************************************************************/
  2407.  
  2408. static VOID RotatePoint ( POINTL aptl[],  SHORT sNum, SHORT sAngle )
  2409. {
  2410.   static SHORT sSin[60] = {
  2411.       0,  105,  208,  309,  407,  500,  588,  669,  743,  809,
  2412.     866,  914,  951,  978,  995, 1000,  995,  978,  951,  914,
  2413.     866,  809,  743,  669,  588,  500,  407,  309,  208,  105,
  2414.       0, -104, -207, -308, -406, -499, -587, -668, -742, -808,
  2415.    -865, -913, -950, -977, -994, -999, -994, -977, -950, -913,
  2416.    -865, -808, -742, -668, -587, -499, -406, -308, -207, -104 };
  2417.  
  2418.   POINTL ptlTemp ;
  2419.   SHORT sIndex ;
  2420.  
  2421.   for ( sIndex = 0; sIndex < sNum ; sIndex++ )
  2422.   {
  2423.     ptlTemp.x = (aptl[sIndex].x * sSin[(sAngle+15)%60] +
  2424.       aptl[sIndex].y * sSin[sAngle]) / 1000 ;
  2425.     ptlTemp.y = (aptl[sIndex].y * sSin[(sAngle+15)%60] -
  2426.       aptl[sIndex].x * sSin[sAngle]) / 1000 ;
  2427.     aptl[sIndex] = ptlTemp ;
  2428.   }
  2429. }
  2430.  
  2431. /****************************************************************************
  2432.  *                                                                          *
  2433.  *      Perform point coordinate scaling.                                   *
  2434.  *                                                                          *
  2435.  ****************************************************************************/
  2436.  
  2437. static VOID ScalePoint ( POINTL aptl[], SHORT sNum, PWINDOWINFO pwi )
  2438. {
  2439.   SHORT sIndex ;
  2440.  
  2441.   for ( sIndex=0; sIndex < sNum; sIndex++ )
  2442.   {
  2443.     aptl[sIndex].x = aptl[sIndex].x * pwi->cxPixelDiam / 200 ;
  2444.     aptl[sIndex].y = aptl[sIndex].y * pwi->cyPixelDiam / 200 ;
  2445.   }
  2446. }
  2447.  
  2448. /****************************************************************************
  2449.  *                                                                          *
  2450.  *      Perform point coordinate translation.                               *
  2451.  *                                                                          *
  2452.  ****************************************************************************/
  2453.  
  2454. static VOID TranslatePoint ( POINTL aptl[], SHORT sNum, PWINDOWINFO pwi )
  2455. {
  2456.   SHORT sIndex ;
  2457.  
  2458.   for ( sIndex=0; sIndex<sNum; sIndex++ )
  2459.   {
  2460.     aptl[sIndex].x += pwi->cxClient / 2 - 1 ;
  2461.     aptl[sIndex].y += pwi->cyClient / 2 - 1 ;
  2462.   }
  2463. }
  2464.  
  2465. /****************************************************************************
  2466.  *                                                                          *
  2467.  *      Draw a clock hand.                                                  *
  2468.  *                                                                          *
  2469.  ****************************************************************************/
  2470.  
  2471. static VOID DrawHand ( HPS hPS, POINTL aptlIn[], SHORT sNum, SHORT sAngle,
  2472.   PWINDOWINFO pwi )
  2473. {
  2474.   POINTL aptl[5] ;
  2475.   SHORT sIndex ;
  2476.  
  2477.   for ( sIndex=0; sIndex<sNum; sIndex++ )
  2478.   {
  2479.     aptl [ sIndex ] = aptlIn [ sIndex ] ;
  2480.   }
  2481.  
  2482.   RotatePoint ( aptl, sNum, sAngle ) ;
  2483.   ScalePoint ( aptl, sNum, pwi ) ;
  2484.   TranslatePoint ( aptl, sNum, pwi ) ;
  2485.  
  2486.   GpiMove ( hPS, aptl ) ;
  2487.   GpiPolyLine ( hPS, sNum-1L, aptl+1 ) ;
  2488. }
  2489.  
  2490. /****************************************************************************
  2491.  *                                                                          *
  2492.  *                   Paint Background (all but hands)                       *
  2493.  *                                                                          *
  2494.  ****************************************************************************/
  2495.  
  2496. static void PaintBackground ( HWND hwnd, HPS hPS, PDATA Data, BOOL MustPaint )
  2497. {
  2498.  /***************************************************************************
  2499.   * Local Declarations                                                      *
  2500.   ***************************************************************************/
  2501.  
  2502.   SHORT  Angle ;
  2503.   POINTL Points [3] ;
  2504.   RECTL  Rectangle ;
  2505.  
  2506.  /***************************************************************************
  2507.   * Clear the window.                                                       *
  2508.   ***************************************************************************/
  2509.  
  2510.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2511.  
  2512.   GpiMove ( hPS, (PPOINTL) &Rectangle.xLeft ) ;
  2513.   GpiSetColor ( hPS, Data->IniData.BackColor ) ;
  2514.   GpiBox ( hPS, DRO_FILL, (PPOINTL) &Rectangle.xRight, 0L, 0L ) ;
  2515.  
  2516.  /***************************************************************************
  2517.   * Paint the appropriate border color.                                     *
  2518.   ***************************************************************************/
  2519.  
  2520.   PaintBorder ( hwnd, hPS, Data, MustPaint ) ;
  2521.  
  2522.  /***************************************************************************
  2523.   * If analog or minimized . . .                                            *
  2524.   ***************************************************************************/
  2525.  
  2526.   if ( Data->IniData.Analog OR ( Data->IniData.Position.fl & SWP_MINIMIZE ) )
  2527.   {
  2528.  
  2529.    /*************************************************************************
  2530.     * Draw hour and minute marks around the dial.                           *
  2531.     *************************************************************************/
  2532.  
  2533.     GpiSetColor ( hPS, Data->IniData.TextColor ) ;
  2534.  
  2535.     for ( Angle=0; Angle<60; Angle++ )
  2536.     {
  2537.       Points[0].x = 0 ;
  2538.       Points[0].y = 90 ;
  2539.       RotatePoint ( Points, 1, Angle ) ;
  2540.       ScalePoint ( Points, 1, &Data->wi ) ;
  2541.       TranslatePoint ( Points, 1, &Data->wi ) ;
  2542.       Points[2].x = Points[2].y = Angle % 5 ? 2 : 10 ;
  2543.  
  2544.       ScalePoint ( Points + 2, 1, &Data->wi ) ;
  2545.  
  2546.       Points[0].x -= Points[2].x / 2 ;
  2547.       Points[0].y -= Points[2].y / 2 ;
  2548.  
  2549.       Points[1].x = Points[0].x + Points[2].x ;
  2550.       Points[1].y = Points[0].y + Points[2].y ;
  2551.  
  2552.       GpiMove ( hPS, Points ) ;
  2553.  
  2554.       if ( ( Angle % 5 == 0 ) OR
  2555.         ( ( Data->wi.cxClient ) > 50 ) AND ( Data->wi.cyClient > 50 ) )
  2556.       {
  2557.         GpiBox ( hPS, DRO_OUTLINEFILL, Points+1, Points[2].x, Points[2].y ) ;
  2558.       }
  2559.     }
  2560.   }
  2561. }
  2562.  
  2563. /****************************************************************************
  2564.  *                                                                          *
  2565.  *                            Paint Border                                  *
  2566.  *                                                                          *
  2567.  ****************************************************************************/
  2568.  
  2569. static void PaintBorder ( HWND hwnd, HPS hPS, PDATA Data, BOOL MustPaint )
  2570. {
  2571.  /***************************************************************************
  2572.   * Local Declarations                                                      *
  2573.   ***************************************************************************/
  2574.  
  2575.   USHORT Alert ;
  2576.   USHORT Level ;
  2577.   POINTL Point ;
  2578.   RECTL  Rectangle ;
  2579.  
  2580.  /***************************************************************************
  2581.   * Determine level of the current alert type.                              *
  2582.   ***************************************************************************/
  2583.  
  2584.   if ( Data->IniData.AlertType == ALERT_TASKCOUNT )
  2585.   {
  2586.     Level = WinQuerySwitchList ( Data->Proc->QueryAnchor(), PSWBLOCK(NULL), 0 ) ;
  2587.   }
  2588.   else
  2589.   {
  2590.     Data->MaxCount = (ULONG) max ( Data->MaxCount, Data->IdleCount ) ;
  2591.     Level = (USHORT) ( ( ( Data->MaxCount - Data->IdleCount ) * 100 ) / Data->MaxCount ) ;
  2592.   }
  2593.  
  2594.  /***************************************************************************
  2595.   * Determine alert class.                                                  *
  2596.   ***************************************************************************/
  2597.  
  2598.   if ( Level < Data->IniData.AlertLevels[Data->IniData.AlertType][0] )
  2599.     Alert = 0 ;
  2600.   else if ( Level < Data->IniData.AlertLevels[Data->IniData.AlertType][1] )
  2601.     Alert = 1 ;
  2602.   else
  2603.     Alert = 2 ;
  2604.  
  2605.  /***************************************************************************
  2606.   * If border must be painted, or the alert level has changed, paint it.    *
  2607.   ***************************************************************************/
  2608.  
  2609.   if ( MustPaint OR ( Alert != Data->Alert ) )
  2610.   {
  2611.     WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2612.  
  2613.     GpiSetColor ( hPS, Alert > 1 ? RGB_RED : ( Alert > 0 ? RGB_YELLOW : RGB_GREEN ) ) ;
  2614.  
  2615.     Point.x = 0 ;
  2616.     Point.y = 0 ;
  2617.     GpiMove ( hPS, &Point ) ;
  2618.  
  2619.     Point.x = Rectangle.xRight - 1 ;
  2620.     Point.y = Rectangle.yTop - 1 ;
  2621.     GpiBox ( hPS, DRO_OUTLINE, &Point, 0L, 0L ) ;
  2622.  
  2623.     Point.x = 1 ;
  2624.     Point.y = 1 ;
  2625.     GpiMove ( hPS, &Point ) ;
  2626.  
  2627.     Point.x = Rectangle.xRight - 2 ;
  2628.     Point.y = Rectangle.yTop - 2 ;
  2629.     GpiBox ( hPS, DRO_OUTLINE, &Point, 0L, 0L ) ;
  2630.  
  2631.     Data->Alert = Alert ;
  2632.   }
  2633. }
  2634.  
  2635. /****************************************************************************
  2636.  *                                                                          *
  2637.  *                          Paint Digital Time                              *
  2638.  *                                                                          *
  2639.  ****************************************************************************/
  2640.  
  2641. static void PaintDigitalTime ( HWND hwnd, HPS hPS, PDATA Data, PDATETIME DateTime )
  2642. {
  2643.  /***************************************************************************
  2644.   * Local Declarations                                                      *
  2645.   ***************************************************************************/
  2646.  
  2647.   USHORT Hour ;
  2648.   RECTL Rectangle ;
  2649.   CHAR Text [20] ;
  2650.  
  2651.  /***************************************************************************
  2652.   * Determine the window rectangle, less the border.                        *
  2653.   ***************************************************************************/
  2654.  
  2655.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2656.  
  2657.   Rectangle.xLeft += 2 ;
  2658.   Rectangle.xRight -= 2 ;
  2659.   Rectangle.yBottom += 2 ;
  2660.   Rectangle.yTop -= 2 ;
  2661.  
  2662.  /***************************************************************************
  2663.   * Draw the new time within the rectangle.                                 *
  2664.   ***************************************************************************/
  2665.  
  2666.   if ( ( DateTime->minutes == 0 ) AND ( DateTime->hours % 12 == 0 ) )
  2667.   {
  2668.     if ( DateTime->hours == 0 )
  2669.     {
  2670.       ResourceString Midnight ( Data->Library->QueryHandle(), IDS_MIDNIGHT ) ;
  2671.       strcpy ( Text, PCHAR(Midnight) ) ;
  2672.     }
  2673.     else if ( DateTime->hours == 12 )
  2674.     {
  2675.       ResourceString Noon ( Data->Library->QueryHandle(), IDS_NOON ) ;
  2676.       strcpy ( Text, PCHAR(Noon) ) ;
  2677.     }
  2678.   }
  2679.   else
  2680.   {
  2681.     if ( Data->IniData.Hour24 )
  2682.     {
  2683.       sprintf ( Text, "%u%s%02u",
  2684.         DateTime->hours, Data->CountryInfo.szTimeSeparator, DateTime->minutes ) ;
  2685.     }
  2686.     else
  2687.     {
  2688.       ResourceString Am ( Data->Library->QueryHandle(), IDS_AM ) ;
  2689.       ResourceString Pm ( Data->Library->QueryHandle(), IDS_PM ) ;
  2690.  
  2691.       Hour = DateTime->hours % 12 ;
  2692.  
  2693.       if ( Hour == 0 )
  2694.         Hour = 12 ;
  2695.  
  2696.       sprintf ( Text, "%u%s%02u%s",
  2697.         Hour, Data->CountryInfo.szTimeSeparator, DateTime->minutes,
  2698.         (DateTime->hours>=12) ? PSZ(Pm) : PSZ(Am) ) ;
  2699.     }
  2700.   }
  2701.  
  2702.   WinDrawText ( hPS, strlen(Text), PSZ(Text), &Rectangle,
  2703.     Data->IniData.TextColor, Data->IniData.BackColor,
  2704.     DT_CENTER | DT_VCENTER | DT_ERASERECT ) ;
  2705. }
  2706.  
  2707. /****************************************************************************
  2708.  *                                                                          *
  2709.  *                      Hide Window Controls                                *
  2710.  *                                                                          *
  2711.  ****************************************************************************/
  2712.  
  2713. static void HideControls
  2714. (
  2715.   BOOL fHide,
  2716.   HWND FrameWindow,
  2717.   HWND hwndSysMenu,
  2718.   HWND hwndTitleBar,
  2719.   HWND hwndMinMax
  2720. )
  2721. {
  2722.  /***************************************************************************
  2723.   * Local Declarations                                                      *
  2724.   ***************************************************************************/
  2725.  
  2726.   SWP OldPosition ;
  2727.   SWP Position ;
  2728.   RECTL Rectangle ;
  2729.  
  2730.  /***************************************************************************
  2731.   * Get original window position and state.                                 *
  2732.   ***************************************************************************/
  2733.  
  2734.   WinQueryWindowPos ( FrameWindow, &OldPosition ) ;
  2735.  
  2736.  /***************************************************************************
  2737.   * Restore and hide the window.                                            *
  2738.   ***************************************************************************/
  2739.  
  2740.   WinSetWindowPos ( FrameWindow, HWND(NULL), 0, 0, 0, 0, SWP_RESTORE | SWP_HIDE ) ;
  2741.  
  2742.  /***************************************************************************
  2743.   * Determine client window and location.                                   *
  2744.   ***************************************************************************/
  2745.  
  2746.   WinQueryWindowPos ( FrameWindow, &Position ) ;
  2747.  
  2748.   Rectangle.xLeft   = Position.x ;
  2749.   Rectangle.xRight  = Position.x + Position.cx ;
  2750.   Rectangle.yBottom = Position.y ;
  2751.   Rectangle.yTop    = Position.y + Position.cy ;
  2752.  
  2753.   WinCalcFrameRect ( FrameWindow, &Rectangle, TRUE ) ;
  2754.  
  2755.  /***************************************************************************
  2756.   * Hide or reveal the controls windows by changing their parentage.        *
  2757.   ***************************************************************************/
  2758.  
  2759.   if ( fHide )
  2760.   {
  2761.     WinSetParent ( hwndSysMenu,  HWND_OBJECT, FALSE ) ;
  2762.     WinSetParent ( hwndTitleBar, HWND_OBJECT, FALSE ) ;
  2763.     WinSetParent ( hwndMinMax,   HWND_OBJECT, FALSE ) ;
  2764.   }
  2765.   else
  2766.   {
  2767.     WinSetParent ( hwndSysMenu,  FrameWindow, TRUE ) ;
  2768.     WinSetParent ( hwndTitleBar, FrameWindow, TRUE ) ;
  2769.     WinSetParent ( hwndMinMax,   FrameWindow, TRUE ) ;
  2770.   }
  2771.  
  2772.  /***************************************************************************
  2773.   * Tell the frame that things have changed.  Let it update the window.     *
  2774.   ***************************************************************************/
  2775.  
  2776.   WinSendMsg ( FrameWindow, WM_UPDATEFRAME,
  2777.     MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  2778.  
  2779.  /***************************************************************************
  2780.   * Reposition the frame around the client window, which is left be.        *
  2781.   ***************************************************************************/
  2782.  
  2783.   WinCalcFrameRect ( FrameWindow, &Rectangle, FALSE ) ;
  2784.  
  2785.   WinSetWindowPos ( FrameWindow, HWND(NULL),
  2786.     (SHORT) Rectangle.xLeft,  (SHORT) Rectangle.yBottom,
  2787.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2788.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2789.     SWP_SIZE | SWP_MOVE ) ;
  2790.  
  2791.  /***************************************************************************
  2792.   * If window was maximized, put it back that way.                          *
  2793.   ***************************************************************************/
  2794.  
  2795.   if ( OldPosition.fl & SWP_MAXIMIZE )
  2796.   {
  2797.     WinSetWindowPos ( FrameWindow, HWND(NULL),
  2798.       (SHORT) Rectangle.xLeft,  (SHORT) Rectangle.yBottom,
  2799.       (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2800.       (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2801.       SWP_SIZE | SWP_MOVE |
  2802.       ( OldPosition.fl & SWP_MAXIMIZE ) ) ;
  2803.   }
  2804.  
  2805.  /***************************************************************************
  2806.   * Reveal the window to the curious world.                                 *
  2807.   ***************************************************************************/
  2808.  
  2809.   WinShowWindow ( FrameWindow, TRUE ) ;
  2810. }
  2811.  
  2812. /****************************************************************************
  2813.  *                                                                          *
  2814.  *    Monitor Loop Thread                                                   *
  2815.  *                                                                          *
  2816.  ****************************************************************************/
  2817.  
  2818. static void _Optlink MonitorThread ( PVOID Parameter )
  2819. {
  2820.  /***************************************************************************
  2821.   * Get the parameter block pointer.                                        *
  2822.   ***************************************************************************/
  2823.  
  2824.   PMONITOR_PARMS Parms = PMONITOR_PARMS ( Parameter ) ;
  2825.  
  2826.  /***************************************************************************
  2827.   * Set this thread's priority as high as it can go.                        *
  2828.   ***************************************************************************/
  2829.  
  2830.   DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  2831.  
  2832.  /***************************************************************************
  2833.   * Start up the high resolution timer, if it is available.                 *
  2834.   ***************************************************************************/
  2835.  
  2836.   BOOL HiResTimer = OpenTimer ( ) ;
  2837.  
  2838.  /***************************************************************************
  2839.   * Loop until commanded to stop.                                           *
  2840.   ***************************************************************************/
  2841.  
  2842.   while ( Parms->Active )
  2843.   {
  2844.  
  2845.    /*************************************************************************
  2846.     * Reset the last time and count seen.                                   *
  2847.     *************************************************************************/
  2848.  
  2849.     ULONG LastMilliseconds ;
  2850.     TIMESTAMP Time [2] ;
  2851.  
  2852.     if ( HiResTimer )
  2853.       GetTime ( &Time[0] ) ;
  2854.     else
  2855.       DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &LastMilliseconds, sizeof(LastMilliseconds) ) ;
  2856.  
  2857.     ULONG LastCounter = *Parms->Counter ;
  2858.  
  2859.    /*************************************************************************
  2860.     * Sleep for a bit.                                                      *
  2861.     *************************************************************************/
  2862.  
  2863.     DosSleep ( 1000 ) ;
  2864.  
  2865.    /*************************************************************************
  2866.     * Find out how much time and counts went by.                            *
  2867.     *************************************************************************/
  2868.  
  2869.     ULONG CurrentCounter = *Parms->Counter ;
  2870.  
  2871.     ULONG DeltaMilliseconds ;
  2872.  
  2873.     if ( HiResTimer )
  2874.     {
  2875.       GetTime ( &Time[1] ) ;
  2876.  
  2877.       ULONG Nanoseconds ;
  2878.       DeltaMilliseconds = ComputeElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  2879.  
  2880.       if ( Nanoseconds >= 500000L )
  2881.         DeltaMilliseconds ++ ;
  2882.     }
  2883.     else
  2884.     {
  2885.       ULONG Milliseconds ;
  2886.       DosQuerySysInfo ( QSV_MS_COUNT, QSV_MS_COUNT, &Milliseconds, sizeof(Milliseconds) ) ;
  2887.       DeltaMilliseconds = Milliseconds - LastMilliseconds ;
  2888.     }
  2889.  
  2890.    /*************************************************************************
  2891.     * Find out how much idle time was counted.  Adjust it to persecond.     *
  2892.     *************************************************************************/
  2893.  
  2894.     ULONG Counter = (ULONG) ( ( (double)(CurrentCounter-LastCounter) * 1000L ) / (double)DeltaMilliseconds ) ;
  2895.  
  2896.    /*************************************************************************
  2897.     * Tell the owner window to refresh its statistics.                      *
  2898.     *************************************************************************/
  2899.  
  2900.     WinPostMsg ( Parms->Owner, WM_REFRESH, MPFROMLONG(Counter), 0L ) ;
  2901.   }
  2902. }
  2903.  
  2904. /****************************************************************************
  2905.  *                                                                          *
  2906.  *                       Calibrate the Load Meter                           *
  2907.  *                                                                          *
  2908.  ****************************************************************************/
  2909.  
  2910. static ULONG CalibrateLoadMeter ( void )
  2911. {
  2912.  /***************************************************************************
  2913.   * Set result to zero as a default.                                        *
  2914.   ***************************************************************************/
  2915.  
  2916.   double AdjustedMaxLoad = 0.0 ;
  2917.  
  2918.  /***************************************************************************
  2919.   * If HRTIMER.SYS has been installed . . .                                 *
  2920.   ***************************************************************************/
  2921.  
  2922.   if ( OpenTimer ( ) )
  2923.   {
  2924.    /*************************************************************************
  2925.     * Increase this thread's priority to the maximum.                       *
  2926.     *************************************************************************/
  2927.  
  2928.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  2929.  
  2930.    /*************************************************************************
  2931.     * Create the calibration thread and set its priority next highest.      *
  2932.     *************************************************************************/
  2933.  
  2934.     COUNTER_PARMS Parms ;
  2935.     ULONG MaxLoad ;
  2936.     Parms.Active = TRUE ;
  2937.     Parms.Counter = &MaxLoad ;
  2938.     TID tidCalibrate = _beginthread ( CounterThread, NULL, 0x3000, &Parms ) ;
  2939.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM-1, tidCalibrate ) ;
  2940.     DosSuspendThread ( tidCalibrate ) ;
  2941.  
  2942.    /*************************************************************************
  2943.     * Reset the calibration count, get the time, and let the counter go.    *
  2944.     *************************************************************************/
  2945.  
  2946.     MaxLoad = 0 ;
  2947.     TIMESTAMP Time[2] ;
  2948.     GetTime ( &Time[0] ) ;
  2949.     DosResumeThread ( tidCalibrate ) ;
  2950.  
  2951.    /*************************************************************************
  2952.     * Sleep for one second.                                                 *
  2953.     *************************************************************************/
  2954.  
  2955.     DosSleep ( 1000 ) ;
  2956.  
  2957.    /*************************************************************************
  2958.     * Suspend the calibration counter and get the time.                     *
  2959.     *************************************************************************/
  2960.  
  2961.     Parms.Active = FALSE ;
  2962.     GetTime ( &Time[1] ) ;
  2963.     DosWaitThread ( &tidCalibrate, DCWW_WAIT ) ;
  2964.  
  2965.    /*************************************************************************
  2966.     * Return priorities to normal.                                          *
  2967.     *************************************************************************/
  2968.  
  2969.     DosSetPrty ( PRTYS_THREAD, PRTYC_REGULAR, 0, 0 ) ;
  2970.  
  2971.    /*************************************************************************
  2972.     * Get the elapsed time and adjust the calibration count.                *
  2973.     *************************************************************************/
  2974.  
  2975.     ULONG Milliseconds ;
  2976.     ULONG Nanoseconds ;
  2977.     Milliseconds = ComputeElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  2978.  
  2979.     AdjustedMaxLoad = (double)MaxLoad * 1.0E9 ;
  2980.     AdjustedMaxLoad /= (double)Milliseconds*1.0E6L + (double)Nanoseconds ;
  2981.  
  2982.    /*************************************************************************
  2983.     * Close down the connection to HRTIMER.SYS.                             *
  2984.     *************************************************************************/
  2985.  
  2986.     CloseTimer ( ) ;
  2987.   }
  2988.  
  2989.  /***************************************************************************
  2990.   * Return the adjusted calibration count.  If HRTIMER was not there, it    *
  2991.   *   will be zero.                                                         *
  2992.   ***************************************************************************/
  2993.  
  2994.   return ( (ULONG)AdjustedMaxLoad ) ;
  2995. }
  2996.  
  2997. /****************************************************************************
  2998.  *                                                                          *
  2999.  *                    General Purpose Counter Thread                        *
  3000.  *                                                                          *
  3001.  ****************************************************************************/
  3002.  
  3003. static void _Optlink CounterThread ( PVOID Parameter )
  3004. {
  3005.   PCOUNTER_PARMS Parms = PCOUNTER_PARMS ( Parameter ) ;
  3006.  
  3007.   while ( Parms->Active )
  3008.   {
  3009.     (*Parms->Counter) ++ ;
  3010.   }
  3011. }
  3012.